A107947 Partial sums of A107946.

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

Author

Paul D. Hanna, May 28 2005

Keywords

• nonn

Comments

Terms at positions 2^k is found in A107948.

Links

• Ivan Neretin, Table of n, a(n) for n = 1..8192

Crossrefs

Cf. A107946, A107948.

Programs

Mathematica

Accumulate@Nest[Join[#, Accumulate@#] &, {1}, 7] (* Ivan Neretin, Jan 31 2018 *)

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]}