Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A176762
Smallest number that takes n steps to reach a cycle under iteration of sum-of-squares-of-digits map.
1
1, 10, 13, 23, 19, 7, 356, 4, 2, 11, 15, 5, 3, 14, 45, 36, 6, 112, 269, 15999
OFFSET
0,2
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Apr 25 2010
STATUS
approved