OFFSET
0,2
COMMENTS
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
FORMULA
a(n) ~ 137^(3/2) * exp(sqrt(137*n/15)*Pi/2) / (15*2^(21/2)*n^2).
MATHEMATICA
nmax = 50; CoefficientList[Series[Product[(1+x^k) * (1+x^(2*k)) * (1+x^(3*k)) * (1+x^(4*k)) * (1+x^(5*k)) / ((1-x^k) * (1-x^(2*k)) * (1-x^(3*k)) * (1-x^(4*k)) * (1-x^(5*k))), {k, 1, nmax}], {x, 0, nmax}], x]
With[{nn=50, xk=x^(k Range[5])}, CoefficientList[Series[Product[Times@@(1+xk)/Times@@(1-xk), {k, nn}], {x, 0, nn}], x]] (* Harvey P. Dale, Jul 23 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Aug 16 2019
STATUS
approved