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,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Index entries for triangles and arrays related to Pascal's triangle

Formula

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

Example

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

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 *)

Prog

(Haskell)
a163866 n = a163866_list !! (n-1)
a163866_list = scanl1 (+) $ concat a007318_tabl
-- Reinhard Zumkeller, Jul 18 2015
(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

Crossrefs

Cf. A007318, A008949.

Cf. A259525.

Sequence in context: A191381 A051602 A348469 * A352937 A027206 A198034

Adjacent sequences: A163863 A163864 A163865 * A163867 A163868 A163869

Keyword

nonn

Author

Juri-Stepan Gerasimov, Aug 06 2009

Extensions

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

Status

approved