login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A231689 a(n) = Sum_{i=0..n} digsum(i)^4, where digsum(i) = A007953(i). 4
0, 1, 17, 98, 354, 979, 2275, 4676, 8772, 15333, 15334, 15350, 15431, 15687, 16312, 17608, 20009, 24105, 30666, 40666, 40682, 40763, 41019, 41644, 42940, 45341, 49437, 55998, 65998, 80639, 80720, 80976, 81601, 82897, 85298, 89394, 95955, 105955, 120596, 141332, 141588, 142213, 143509, 145910, 150006, 156567, 166567, 181208, 201944, 230505, 231130, 232426, 234827, 238923 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..53.

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.

R. E. Kennedy and C. N. Cooper, An extension of a theorem by Cheo and Yien concerning digital sums, Fibonacci Q. 29, No. 2, 145-149 (1991).

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.

H. Riede, Asymptotic estimation of a sum of digits, Fibonacci Q. 36, No. 1, 72-75 (1998).

J. R. Trollope, An explicit expression for binary digital sums, Math. Mag. 41 1968 21-25.

MAPLE

See A037123.

MATHEMATICA

Accumulate[Table[Total[IntegerDigits[n]]^4, {n, 0, 60}]] (* Harvey P. Dale, May 12 2014 *)

PROG

(PARI) a(n) = sum(i=0, n, sumdigits(i)^4); \\ Michel Marcus, Sep 20 2017

CROSSREFS

Cf. A007953, A037123, A074784, A231688.

Sequence in context: A231679 A231683 A231687 * A000538 A023873 A294590

Adjacent sequences:  A231686 A231687 A231688 * A231690 A231691 A231692

KEYWORD

nonn,base

AUTHOR

N. J. A. Sloane, Nov 13 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 24 13:48 EDT 2019. Contains 326279 sequences. (Running on oeis4.)