OFFSET
1,3
COMMENTS
MATHEMATICA
lst = {}; k = 0; While[k < 1500, a = NestWhile[Plus @@ (IntegerDigits@ #^3) &, k, Unequal, All]; If[FreeQ[lst, a], AppendTo[lst, a]]; k++]; Sort@ lst (* Robert G. Wilson v, Jan 19 2006, revised Jan 03 2015 *)
Table[Nest[Total[IntegerDigits[#]^3]&, n, 30], {n, 0, 1500}]//Union (* Harvey P. Dale, Aug 04 2018 *)
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
Richard C. Schroeppel
STATUS
approved