A259028 a(n) = least number m such that digital root of m is n*(digital root of m-th prime).

25, 29, 12, 26, 131, 42, 106, 8, 63

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

Table of n, a(n) for n=1..9.

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

Cf. A000040, A010888, A038194, A258876, A258877.

Sequence in context: A127652 A303812 A334534 * A358425 A317392 A373505

Adjacent sequences: A259025 A259026 A259027 * A259029 A259030 A259031

Keyword

nonn,base,fini,full

Author

Zak Seidov, Jun 17 2015

Status

approved