OFFSET
0,2
MATHEMATICA
Table[Product[Sum[Binomial[m, k]*PartitionsP[k], {k, 0, m}], {m, 0, n}], {n, 0, 15}]
PROG
(PARI) a(n) = prod(m=0, n, sum(k=0, m, binomial(m, k)*numbpart(k))); \\ Michel Marcus, Oct 29 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 29 2017
STATUS
approved