login
A304989
G.f.: Sum_{k>=0} A000041(k)^2 * x^k / Sum_{k>=0} A000009(k)^2 * x^k.
0
1, 0, 3, 2, 16, 10, 59, 32, 187, 90, 519, 152, 1439, 164, 3525, -246, 8904, -2500, 21748, -10836, 53918, -36508, 131424, -115266, 328703, -336608, 812615, -957464, 2046225, -2634166, 5152190, -7145682, 13121677, -19039178, 33473773, -50395004, 86035125
OFFSET
0,3
FORMULA
a(n) ~ (-1)^n * c * d^n, where d = 1.6096199212376592810929072080593393678131347423108390218672748044914523428584..., c = 3.049014588253509415528984781833089943634060493523166258285691300445092167...
MATHEMATICA
nmax = 50; CoefficientList[Series[Sum[PartitionsP[k]^2*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