OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..4550
FORMULA
MATHEMATICA
nmax=40; CoefficientList[Series[Product[1 + (x+x^2)^k, {k, 1, nmax}], {x, 0, nmax}], x]
Table[Sum[Binomial[k, n-k]*PartitionsQ[k], {k, 0, n}], {n, 0, 40}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Dec 21 2015
STATUS
approved