OFFSET
0,4
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
FORMULA
a(n) ~ exp(4*c + 3 * 2^(-4/3) * Zeta(3)^(1/3) * n^(2/3)) * Zeta(3)^(11/72) / (2^(47/72) * sqrt(3) * Gamma(3/4) * n^(47/72)), where c = Integral_{x=0..inf} ((5/(exp(x)*96) + 1/(exp(3*x)*(1 - exp(-4*x))^2) - 1/(16*x^2) - 1/(16*x))/x) dx = -0.158924147180165035059952001737321408554746599955833696821824808... - Vaclav Kotesovec, Apr 15 2017
MATHEMATICA
nmax = 100; CoefficientList[Series[Product[1/(1-x^(4*k+3))^(4*k+3), {k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 15 2017 *)
PROG
(PARI) x='x+O('x^100); Vec(prod(k=0, 100, 1/(1 - x^(4*k + 3))^(4*k + 3))) \\ Indranil Ghosh, Apr 15 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Apr 15 2017
STATUS
approved