OFFSET
1,4
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
nmax = 50; col = 3; Flatten[{0, 0, CoefficientList[Coefficient[Normal[Series[Product[Product[1/(1 - x^(i - j)*y^j), {j, 0, i}], {i, 2, nmax + col}], {x, 0, col}, {y, 0, nmax}]], x^col], y]}]
nmax = 50; Rest[CoefficientList[Series[(x^3 * (1 + x - x^4))/((1-x)^2 * (1+x) * (1 + x + x^2)) / QPochhammer[x], {x, 0, nmax}], x]]
Table[Sum[(Floor[k/2] - Floor[(k-1)/3]) * PartitionsP[n-k], {k, 3, n}], {n, 1, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Aug 26 2017
STATUS
approved