OFFSET
1,1
COMMENTS
Elements >= 1109 can be found in A051373.
MATHEMATICA
NestList[#+Total[IntegerDigits[#^3]]&, 145, 50] (* Harvey P. Dale, Jan 09 2011 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Miklos SZABO (mike(AT)ludens.elte.hu)
STATUS
approved