A377974 Expansion of the 1920th root of the series 2*E_4(x) - E_8(x), where E_4 and E_8 are the Eisenstein series of weight 4 and weight 8.
1, 0, -30, -540, -867660, -31107300, -33668157900, -1795572812400, -1477793386682970, -103845834995498100, -69550699526934273180, -6017200267937951322660, -3426636160378174348594500, -349303370036461528632524580, -174458882971934188146144343320, -20314204536496741742949242177040
Offset: 0
Links
- N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, arXiv:math/0509316 [math.NT], 2005-2006; J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.
Crossrefs
Programs
-
Maple
with(numtheory): E := proc (k) local n, t1; t1 := 1 - 2*k*add(sigma[k-1](n)*q^n, n = 1..30)/bernoulli(k); series(t1, q, 30) end: seq(coeftayl((2*E(4) - E(8))^(1/1920), q = 0, n),n = 0..20);
-
Mathematica
terms = 20; E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}]; E8[x_] = 1 + 480*Sum[k^7*x^k/(1 - x^k), {k, 1, terms}]; CoefficientList[Series[(2*E4[x] - E8[x])^(1/1920), {x, 0, terms}], x] (* Vaclav Kotesovec, Aug 03 2025 *)
Formula
a(n) ~ c / (r^n * n^(1921/1920)), where r = 0.004019427095115250686492968205049012182922598389629390919504184161606551652... is the root of the equation Sum_{k>=1} sigma_3(k) * r^k = 1/240 and c = -0.00052087420429807426289253718287... - Vaclav Kotesovec, Aug 03 2025
Comments