A071121 a(n) = a(n-1) + sum of decimal digits of n^3.

1, 9, 18, 28, 36, 45, 55, 63, 81, 82, 90, 108, 127, 144, 162, 181, 198, 216, 244, 252, 270, 289, 306, 324, 343, 369, 396, 415, 441, 450, 478, 504, 531, 550, 576, 603, 622, 648, 675, 685, 711, 738, 766, 792, 810, 838, 855, 873, 901, 909, 927, 946, 981, 1008

Offset: 1

Author

Labos Elemer, May 27 2002

Keywords

• base
• easy
• nonn
• changed

References

• N. Agronomof, Question 4420, L'Intermédiaire des Math. 21 (1914), 147.

Crossrefs

Cf. A037123, A000788, A051351, A071317.

Partial sums of A004164.

Programs

Mathematica

s=0; Do[s=s+Apply[Plus, IntegerDigits[n^3]]; Print[s], {n, 1, 128}]
nxt[{n_,a_}]:={n+1,a+Total[IntegerDigits[(n+1)^3]]}; NestList[nxt,{1,1},60][[;;,2]] (* Harvey P. Dale, Aug 30 2025 *)