A080587 Partial sums of A080586.

1, 2, 3, 5, 7, 9, 10, 11, 12, 13, 14, 15, 17, 19, 21, 23, 25, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 89, 91, 93, 95, 97, 99, 101

Offset: 0

Author

N. J. A. Sloane, Feb 23 2003

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 0..10000

Programs

Mathematica

Accumulate[Flatten[Table[{PadRight[{},3*2^n,1],PadRight[{},3*2^n,2]},{n,0,4}]]] (* Harvey P. Dale, May 04 2014 *)

Formula

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

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