A028513 Expansion of A007245^4.
1, 992, 385520, 73424000, 7032770680, 330234251072, 9708251628992, 205208814844160, 3384709979113500, 45920987396301280, 531402725344000864, 5384625599438260096, 48726640432968418240, 399835655086212744000
Offset: 0
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A000521 (j(q)).
Programs
-
Mathematica
CoefficientList[Series[(QPochhammer[x, x^2]^8 + 256*x/QPochhammer[x, x^2]^16)^4, {x, 0, 20}], x] (* Vaclav Kotesovec, Jul 15 2017 *)
Formula
(q*j(q))^(4/3) where j(q) is the elliptic modular invariant. - Seiichi Manyama, Jul 15 2017
a(n) ~ exp(8*Pi*sqrt(n/3)) / (3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Jul 15 2017