OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
Kenneth B. Stolarsky, The sum of a digitaddition series, Proc. Amer. Math. Soc. 59 (1976), no. 1, 1--5. MR0409340 (53 #13099).
FORMULA
a(n) ~ (n^2/4)*log_2(n). [Stolarsky]
MAPLE
f:= proc(n) option remember;
procname(n-1)+convert(convert(procname(n-1), base, 2), `+`)
end proc:
f(0):= 1:
g:= proc(n) option remember;
procname(n-1)+f(n)
end proc:
g(0):= 1:
map(g, [$0..100]); # Robert Israel, Jul 07 2020
PROG
(PARI) lista(nn) = {a = 1; sa = 0; for (n=2, nn, sa += a; print1(sa, ", "); a += hammingweight(a); ); } \\ Michel Marcus, Apr 04 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 08 2013
EXTENSIONS
More terms from Michel Marcus, Apr 04 2015
STATUS
approved