OFFSET
0,2
FORMULA
MATHEMATICA
nmax = 30; CoefficientList[Series[(1-x)^(1/2) * Product[1/(1-x^k), {k, 1, nmax}], {x, 0, nmax}], x] * 4^Range[0, nmax]
Table[4^n*(PartitionsP[n] - Sum[PartitionsP[n-k] * CatalanNumber[k-1]/2^(2*k - 1), {k, 1, n}]), {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, May 28 2019
STATUS
approved