

A176762


Smallest number that takes n steps to reach a cycle under iteration of sumofsquaresofdigits map.


1



1, 10, 13, 23, 19, 7, 356, 4, 2, 11, 15, 5, 3, 14, 45, 36, 6, 112, 269, 15999
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



