|
|
A259028
|
|
a(n) = least number m such that digital root of m is n*(digital root of m-th prime).
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Corresponding pairs of m and prime(m): {25,97}, {29,109}, {12,37}, {26, 101}, {131,739}, {42,181}, {106,577}, {8,19}, {63,307}.
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[m = 1; While[FixedPoint[Total@ IntegerDigits[#] &, m] != n FixedPoint[Total@ IntegerDigits[#] &, Prime@ m], m++]; m, {n, 9}] (* Michael De Vlieger, Jun 19 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|