OFFSET
0,4
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..5000
FORMULA
MATHEMATICA
Table[Sum[(-1)^(n-k+1)*PartitionsQ[k]*(n-k), {k, 0, n}], {n, 0, 100}]
nmax = 100; CoefficientList[Series[x/(1 + x)^2 * Product[(1 + x^k), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Vaclav Kotesovec, Mar 12 2016
STATUS
approved