OFFSET
0,3
FORMULA
a(n) ~ 7^(3/2) * exp(Pi*sqrt(7*n/3)) / (768*n^2).
MATHEMATICA
nmax = 50; CoefficientList[Series[Sum[PartitionsP[k]^2*x^k, {k, 0, nmax}] / Sum[PartitionsQ[k]*x^k, {k, 0, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, May 23 2018
STATUS
approved