login
A107947
Partial sums of A107946.
5
1, 2, 3, 5, 6, 8, 11, 16, 17, 19, 22, 27, 33, 41, 52, 68, 69, 71, 74, 79, 85, 93, 104, 120, 137, 156, 178, 205, 238, 279, 331, 399, 400, 402, 405, 410, 416, 424, 435, 451, 468, 487, 509, 536, 569, 610, 662, 730, 799, 870, 944, 1023, 1108, 1201, 1305, 1425, 1562
OFFSET
1,2
COMMENTS
Terms at positions 2^k is found in A107948.
LINKS
MATHEMATICA
Accumulate@Nest[Join[#, Accumulate@#] &, {1}, 7] (* Ivan Neretin, Jan 31 2018 *)
PROG
(PARI) {a(n)=local(A=[1, 1], B=[1]); for(i=1, #binary(n), B=concat(B, vector(#B, k, polcoeff(Ser(A)/(1-x), #B+k-1))); A=concat(A, B); ); B[n]}
CROSSREFS
Sequence in context: A339732 A098491 A280449 * A120768 A271109 A293033
KEYWORD
nonn
AUTHOR
Paul D. Hanna, May 28 2005
STATUS
approved