|
%I #9 Feb 14 2018 04:26:10
%S 1,2,3,5,6,8,11,16,17,19,22,27,33,41,52,68,69,71,74,79,85,93,104,120,
%T 137,156,178,205,238,279,331,399,400,402,405,410,416,424,435,451,468,
%U 487,509,536,569,610,662,730,799,870,944,1023,1108,1201,1305,1425,1562
%N Partial sums of A107946.
%C Terms at positions 2^k is found in A107948.
%H Ivan Neretin, <a href="/A107947/b107947.txt">Table of n, a(n) for n = 1..8192</a>
%t Accumulate@Nest[Join[#, Accumulate@#] &, {1}, 7] (* _Ivan Neretin_, Jan 31 2018 *)
%o (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]}
%Y Cf. A107946, A107948.
%K nonn
%O 1,2
%A _Paul D. Hanna_, May 28 2005
|
