|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| s=0; Do[s=s+Apply[Plus, IntegerDigits[n^3]]; Print[s], {n, 1, 128}]
|
|
|
CROSSREFS
| Cf. A037123, A000788, A051351, A071317.
Sequence in context: A052489 A115552 A043322 * A157644 A107223 A194152
Adjacent sequences: A071118 A071119 A071120 * A071122 A071123 A071124
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 27 2002
|
| |
|
|
