OFFSET
1,1
COMMENTS
This sequence begins with the last 8 numbers of A039943. The number 78999 is the first happy number here.
MATHEMATICA
f[n_] := Total[IntegerDigits[n]^2]; Select[Range[400000], Length[NestWhileList[f, #, UnsameQ, All]] - 1 == 8 &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Aug 23 2011
STATUS
approved