OFFSET
0,2
FORMULA
MATHEMATICA
nmax = 30; CoefficientList[Series[(1-x)^(1/2) * Product[(1+x^k), {k, 1, nmax}], {x, 0, nmax}], x] * 4^Range[0, nmax]
Table[4^n*(PartitionsQ[n] - Sum[PartitionsQ[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