login
A071121
a(n) = a(n-1) + sum of decimal digits of n^3.
2
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,2
REFERENCES
N. Agronomof, Question 4420, L'Intermédiaire des Math. 21 (1914), 147.
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 *)
CROSSREFS
Partial sums of A004164.
Sequence in context: A034033 A115552 A043322 * A157644 A107223 A194152
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, May 27 2002
STATUS
approved