%I #11 Jul 12 2023 14:43:14
%S 1,9,18,28,36,45,55,63,81,82,90,108,127,144,162,181,198,216,244,252,
%T 270,289,306,324,343,369,396,415,441,450,478,504,531,550,576,603,622,
%U 648,675,685,711,738,766,792,810,838,855,873,901,909,927,946,981,1008
%N a(n) = a(n-1) + sum of decimal digits of n^3.
%D N. Agronomof, Question 4420, L'Intermédiaire des Math. 21 (1914), 147.
%t s=0; Do[s=s+Apply[Plus, IntegerDigits[n^3]]; Print[s], {n, 1, 128}]
%Y Cf. A037123, A000788, A051351, A071317.
%Y Partial sums of A004164.
%K base,easy,nonn
%O 1,2
%A _Labos Elemer_, May 27 2002
|