A051414 a(n+1) = a(n) + sum of digits of a(n)^3.

145, 173, 208, 254, 289, 326, 370, 389, 442, 488, 514, 560, 586, 605, 631, 668, 712, 749, 793, 848, 883, 938, 982, 1037, 1072, 1109, 1153, 1199, 1252, 1289, 1324, 1352, 1387, 1433, 1486, 1532, 1585, 1640, 1666, 1712, 1756, 1802, 1846, 1892, 1945, 2000

Offset: 1

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

• easy
• nonn
• base

Comments

Elements >= 1109 can be found in A051373.

Crossrefs

Cf. A051373.

Programs

Mathematica

NestList[#+Total[IntegerDigits[#^3]]&,145,50]  (* Harvey P. Dale, Jan 09 2011 *)