OFFSET
0,3
LINKS
N. J. A. Sloane, Transforms
Eric Weisstein's World of Mathematics, Self-Conjugate Partition
FORMULA
G.f.: 1/(1 - x*Product_{k>=1} 1/(1 + (-x)^k)).
a(0) = 1; a(n) = Sum_{k=1..n} A000700(k-1)*a(n-k).
a(n) ~ c / r^n, where r = 0.5334880525001986092393688937248506539793821912... is the root of the equation 1 + r - r^2 * QPochhammer(-1/r, r^2) = 0 and c = 0.48000092330632206397886602198643227268597451507794232644772186731542555975... = (2*(1 + r)*Log[r])/(2*(2 + r)*Log[r] + (1 + r)*Log[1 - r^2] + (1 + r) * QPolyGamma[Log[-1/r] / Log[r^2], r^2] + 4*r^4*Log[r] * Derivative[0,1][QPochhammer][-1/r, r^2]). - Vaclav Kotesovec, Mar 31 2018
MATHEMATICA
nmax = 38; CoefficientList[Series[1/(1 - x Product[(1 + x^(2 k - 1)), {k, 1, nmax}]), {x, 0, nmax}], x]
nmax = 38; CoefficientList[Series[1/(1 - x QPochhammer[x^2]^2/(QPochhammer[x] QPochhammer[x^4])), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 30 2018
STATUS
approved