|
%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
|
