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

46, 74, 91, 119, 154, 182, 217, 236, 262, 308, 334, 371, 397, 434, 469, 497, 532, 578, 604, 641, 676, 722, 766, 812, 856, 884, 919, 965, 1009, 1046, 1081, 1109, 1153, 1199, 1252, 1289, 1324, 1352, 1387, 1433, 1486, 1532, 1585, 1640, 1666, 1712, 1756, 1802

Offset: 1

Author

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

Keywords

• nonn
• base
• easy
• less

Comments

Elements >= 469 can be found in A051373.

Crossrefs

Cf. A051373.

Programs

Mathematica

NestList[#+Total[IntegerDigits[#^3]]&,46,50] (* Harvey P. Dale, Jun 18 2013 *)

Extensions

Definition clarified by Harvey P. Dale, Jun 18 2013