A176762 Smallest number that takes n steps to reach a cycle under iteration of sum-of-squares-of-digits map.

1, 10, 13, 23, 19, 7, 356, 4, 2, 11, 15, 5, 3, 14, 45, 36, 6, 112, 269, 15999

Offset

0,2

Links

Table of n, a(n) for n=0..19.

Formula

a(n) = minimum of either A001273(n) or A094406(n+3).

Mathematica

f[n_] := Plus @@ (IntegerDigits[n]^2); t = Table[0, {25}]; k = 1; While[k < 150000001, a = Length@ NestWhileList[f, k, UnsameQ@## &, All] - 1; If[a < 25 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]

Crossrefs

Cf. A001273, A094406, A045646, A003001.

Sequence in context: A095918 A191969 A018785 * A001273 A111524 A074346

Adjacent sequences: A176759 A176760 A176761 * A176763 A176764 A176765

Keyword

nonn,base

Author

Robert G. Wilson v, Apr 25 2010

Status

approved