A163866 Partial sums of A007318.

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, 120, 126, 127, 128, 135, 156, 191, 226, 247, 254, 255, 256, 264, 292, 348, 418, 474, 502, 510, 511, 512, 521, 557, 641, 767, 893, 977, 1013, 1022, 1023, 1024, 1034, 1079, 1199

Offset: 1

Author

Juri-Stepan Gerasimov, Aug 06 2009

Keywords

• nonn

Examples

			a(1)=0!/(0!(0-0)!)=1.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Index entries for triangles and arrays related to Pascal's triangle

Crossrefs

Cf. A007318, A008949.

Cf. A259525.

Programs

Haskell

a163866 n = a163866_list !! (n-1)
a163866_list = scanl1 (+) $ concat a007318_tabl
-- Reinhard Zumkeller, Jul 18 2015

Mathematica

Flatten[Table[2^a-1+Sum[Binomial[a,p],{p,0,b}],{a,0,10},{b,0,a}]] (* Frank M Jackson, Apr 25 2011 *)
Accumulate[Flatten[Table[Binomial[n,k],{n,0,11},{k,0,n}]]] (* Harvey P. Dale, Dec 04 2012 *)

PARI

lista(nn) = {my(i=0, j=0, p=0); for (n=1, nn, p += binomial(i, j); print1(p, ", "); j++; if (j > i, j = 0; i++););} \\ Michel Marcus, Jan 25 2019

Formula

a(n) = Sum_{j=1..n-1} A007318(j).

Extensions

Entries checked by R. J. Mathar, Aug 11 2009