OFFSET
0,4
FORMULA
a(n) ~ (-1)^n * c * d^n, where d = 1.6096199212376592810929072080593393678131347423108390218672748044914523428584..., c = 0.4455996319406557616008349987776746416976798533740571426884585957313974660...
MATHEMATICA
nmax = 50; CoefficientList[Series[Sum[PartitionsP[k]*x^k, {k, 0, nmax}] / Sum[PartitionsQ[k]^2*x^k, {k, 0, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Vaclav Kotesovec, May 23 2018
STATUS
approved