Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
Table of n, a(n) for n=1..49.
NestList[#+Total[IntegerDigits[#^3]]&, 6, 50] (* Harvey P. Dale, Aug 16 2011 *)
Sequence in context: A200895 A225278 A213779 * A083052 A232604 A120849
Adjacent sequences: A051407 A051408 A051409 * A051411 A051412 A051413
Miklos SZABO (mike(AT)ludens.elte.hu)