OFFSET
0,3
COMMENTS
Partial sums of ((the total of the digits of i in base 9) squared). - Harvey P. Dale, Nov 26 2013
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
Jean Coquet, Power sums of digital sums, J. Number Theory 22 (1986), no. 2, 161-176.
P. J. Grabner, P. Kirschenhofer, H. Prodinger, R. F. Tichy, On the moments of the sum-of-digits function, PDF, Applications of Fibonacci numbers, Vol. 5 (St. Andrews, 1992), 263-271, Kluwer Acad. Publ., Dordrecht, 1993.
J.-L. Mauclaire, Leo Murata, On q-additive functions. I, Proc. Japan Acad. Ser. A Math. Sci. 59 (1983), no. 6, 274-276.
J.-L. Mauclaire, Leo Murata, On q-additive functions. II, Proc. Japan Acad. Ser. A Math. Sci. 59 (1983), no. 9, 441-444.
J. R. Trollope, An explicit expression for binary digital sums, Math. Mag. 41 1968 21-25.
MATHEMATICA
Accumulate[Table[Total[IntegerDigits[n, 9]]^2, {n, 0, 100}]] (* Harvey P. Dale, Nov 26 2013 *)
PROG
(PARI) a(n) = sum(i=0, n, sumdigits(i, 9)^2); \\ Michel Marcus, Sep 20 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 13 2013
STATUS
approved