login
Partial sums of A080584.
0

%I #5 Jun 01 2012 16:06:55

%S 0,0,0,1,2,3,3,3,3,3,3,3,4,5,6,7,8,9,9,9,9,9,9,9,9,9,9,9,9,9,10,11,12,

%T 13,14,15,16,17,18,19,20,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,

%U 21,21,21,21,21,21,21,21,21,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37

%N Partial sums of A080584.

%F Also: a(n) = 3*2^A000523(A002264(n+6)/2)*(1-3*A080584(n))+A080584(n)*(n+7)-3. - Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 24 2003

%t Accumulate[Flatten[Table[{PadRight[{},3*2^n,0],PadRight[{},3*2^n, 1]},{n,0,4}]]] (* _Harvey P. Dale_, Jun 01 2012 *)

%K nonn

%O 0,5

%A _N. J. A. Sloane_, Feb 23 2003