OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..366
M. Eichler and D. Zagier, On the zeros of the Weierstrass P-function, Math. Ann. 258 (1981/82), 399-407.
FORMULA
Sum_{n>=1} a(n)/n^2 * exp(-2*Pi*n) = (Pi - log(5+2*sqrt(6)))/(72*sqrt(6)).
a(n) ~ c * exp(2*Pi*n) * sqrt(n), where c = sqrt(2)/(432*sqrt(Pi)) = 0.001846955001858484620092342870066582724425271440578401192897804766993... - Vaclav Kotesovec, Jul 09 2017, updated Mar 05 2018
EXAMPLE
G.f.: q + 732*q^2 + 483336*q^3 + 299831152*q^4 + 179912034330*q^5 + ...
MATHEMATICA
nmax = 20; CoefficientList[Series[Product[(1 - x^k)^24, {k, 1, nmax}] / (1 - 504*Sum[DivisorSigma[5, k]*x^k, {k, 1, nmax}])^(3/2), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 09 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jul 08 2017
STATUS
approved