login
Partial sums of A010062.
2

%I #13 Jul 07 2020 15:49:24

%S 1,3,6,11,18,28,40,54,71,90,112,137,165,196,232,270,311,355,402,454,

%T 509,569,633,698,765,835,908,984,1063,1147,1234,1326,1422,1520,1621,

%U 1726,1835,1949,2067,2190,2319,2450,2584,2721,2861,3004,3152,3303,3459,3619

%N Partial sums of A010062.

%H Robert Israel, <a href="/A230088/b230088.txt">Table of n, a(n) for n = 0..10000</a>

%H Kenneth B. Stolarsky, <a href="http://dx.doi.org/10.1090/S0002-9939-1976-0409340-X">The sum of a digitaddition series</a>, Proc. Amer. Math. Soc. 59 (1976), no. 1, 1--5. MR0409340 (53 #13099).

%F a(n) ~ (n^2/4)*log_2(n). [Stolarsky]

%p f:= proc(n) option remember;

%p procname(n-1)+convert(convert(procname(n-1),base,2),`+`)

%p end proc:

%p f(0):= 1:

%p g:= proc(n) option remember;

%p procname(n-1)+f(n)

%p end proc:

%p g(0):= 1:

%p map(g, [$0..100]); # _Robert Israel_, Jul 07 2020

%o (PARI) lista(nn) = {a = 1;sa = 0; for (n=2, nn, sa += a; print1(sa, ", "); a += hammingweight(a););} \\ _Michel Marcus_, Apr 04 2015

%Y Cf. A010062.

%K nonn,base

%O 0,2

%A _N. J. A. Sloane_, Oct 08 2013

%E More terms from _Michel Marcus_, Apr 04 2015