|
|
A231501
|
|
a(n) = Sum_{i=0..n} wt(i)^3, where wt() = A000120().
|
|
4
|
|
|
0, 1, 2, 10, 11, 19, 27, 54, 55, 63, 71, 98, 106, 133, 160, 224, 225, 233, 241, 268, 276, 303, 330, 394, 402, 429, 456, 520, 547, 611, 675, 800, 801, 809, 817, 844, 852, 879, 906, 970, 978, 1005, 1032, 1096, 1123, 1187, 1251, 1376, 1384, 1411, 1438, 1502, 1529, 1593, 1657, 1782, 1809, 1873, 1937, 2062, 2126, 2251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
P. J. Grabner, P. Kirschenhofer, H. Prodinger and R. F. Tichy, On the moments of the sum-of-digits function, PDF, Applications of Fibonacci numbers, Vol. 5 (St. Andrews, 1992), Kluwer Acad. Publ., Dordrecht, 1993, pp. 263-271; alternative link.
J.-L. Mauclaire and Leo Murata, On q-additive functions. I, Proc. Japan Acad. Ser. A Math. Sci., Vol. 59, No. 6 (1983), pp. 274-276.
|
|
FORMULA
|
a(n) ~ n * (log(n)/(2*log(2)))^3 + O(n*log(n)^2) (Stolarsky, 1977). - Amiram Eldar, Jan 20 2022
|
|
MATHEMATICA
|
Accumulate @ (Table[DigitCount[n, 2, 1], {n, 0, 60}]^3) (* Amiram Eldar, Jan 20 2022 *)
|
|
PROG
|
(PARI) a(n) = sum(i=0, n, hammingweight(i)^3); \\ Michel Marcus, Sep 20 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|