A080585 Partial sums of A080584.

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, 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 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

Offset: 0

Author

N. J. A. Sloane, Feb 23 2003

Keywords

• nonn

Programs

Mathematica

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

Formula

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