A294350 Product of first n terms of the binomial transform of the partition function (A000041).
1, 2, 10, 130, 4420, 388960, 87516000, 49796604000, 70960160700000, 251057048556600000, 2188464292267882200000, 46682131818366195208200000, 2421822316605019841206207800000, 303875733353698259555507717497200000, 91748896295748761809334889636212098800000
Offset: 0
Keywords
Programs
-
Mathematica
Table[Product[Sum[Binomial[m, k]*PartitionsP[k], {k, 0, m}], {m, 0, n}], {n, 0, 15}] -
PARI
a(n) = prod(m=0, n, sum(k=0, m, binomial(m,k)*numbpart(k))); \\ Michel Marcus, Oct 29 2017