A289340 Coefficients of (q*(j(q)-1728))^(1/3) where j(q) is the elliptic modular invariant.
1, -328, -41956, -8596032, -2597408634, -916285828640, -352170121921992, -143129703441671168, -60517599938503137519, -26355020095077489965264, -11743692598044815023990588, -5329748160859504303225598464
Offset: 0
Keywords
Crossrefs
Programs
-
Mathematica
CoefficientList[Series[((256/QPochhammer[-1, x]^8 + x*QPochhammer[-1, x]^16/256)^3 - 1728*x)^(1/3), {x, 0, 20}], x] (* Vaclav Kotesovec, Mar 07 2018 *)
Formula
G.f.: Product_{k>=1} (1-q^k)^(A289061(k)/3).
a(n) ~ c * exp(2*Pi*n) / n^(5/3), where c = -2^(2/3) * 3^(5/6) * exp(-2*Pi/3) * Gamma(2/3) / (Pi^(1/3) * Gamma(3/4)^(8/3)) = -0.262554753987597280323546158564... - Vaclav Kotesovec, Mar 07 2018
Comments