A081252 - OEIS

%I #6 Mar 30 2012 17:27:40

%S 0,0,1,1,2,4,5,5,6,8,11,15,18,20,21,21,22,24,27,31,36,42,49,57,64,70,

%T 75,79,82,84,85,85,86,88,91,95,100,106,113,121,130,140,151,163,176,

%U 190,205,221,236,250,263,275,286,296,305,313,320,326,331,335,338,340,341,341

%N Partial sums of A053646.

%H Klaus Brockhaus, <a href="/A053646/a053646.gif">Illustration for A053646, A081252, A081253 and A081254</a>

%F a(n) = sum{j=1..n, A053646(j)}.

%e First seven terms of A053646 are 0,0,1,0,1,2,1, so a(7) = 5.

%o (PARI) {s=0; for(n=1,65,p=2^floor(0.1^25+log(n)/log(2)); print1(s=s+min(n-p,2*p-n),","))}

%Y Cf. A053646, A081253, A081254.

%K easy,nonn

%O 1,5

%A _Klaus Brockhaus_, Mar 17 2003