|
%I
%S 1,2,3,4,6,7,8,11,14,15,16,20,26,30,31,32,37,47,57,62,63,64,70,85,105,
%T 120,126,127,128,135,156,191,226,247,254,255,256,264,292,348,418,474,
%U 502,510,511,512,521,557,641,767,893,977,1013,1022,1023,1024,1034,1079,1199
%N Partial sums of A007318.
%H Harvey P. Dale, <a href="/A163866/b163866.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n)=sum_{j=1..n-1} A007318(j).
%e a(1)=0!/(0!(0-0)!)=1.
%t Flatten[Table[2^a-1+Sum[Binomial[a,p],{p,0,b}],{a,0,10},{b,0,a}]] (* Frank M Jackson, Apr 25 2011 *)
%t Accumulate[Flatten[Table[Binomial[n,k],{n,0,11},{k,0,n}]]] (* _Harvey P. Dale_, Dec 04 2012 *)
%Y Cf. A007318, A008949.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Aug 06 2009
%E Entries checked by _R. J. Mathar_, Aug 11 2009.
|
