OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
NestList[#+Total[IntegerDigits[#^3]]&, 1, 50] (* Harvey P. Dale, Dec 25 2015 *)
PROG
(PARI) sod(n) = d = digits(n); sum(i=1, #d, d[i])
lista(nn) = {na = 1; for (i=1, nn, print1(na, ", "); na += sod(na^3); ); } \\ Michel Marcus, Jun 22 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Miklos SZABO (mike(AT)ludens.elte.hu)
EXTENSIONS
More terms from James A. Sellers, May 01 2000
STATUS
approved