A282012 -id:A282012 - cp's OEIS frontend

A029829 Eisenstein series E_16(q) (alternate convention E_8(q)), multiplied by 3617.

3617, 16320, 534790080, 234174178560, 17524001357760, 498046875016320, 7673653657232640, 77480203842286080, 574226476491096000, 3360143509958850240, 16320498047409790080, 68172690124863440640

Offset: 0

N. J. A. Sloane

nonn

N. Koblitz, Introduction to Elliptic Curves and Modular Forms, Springer-Verlag, 1984, see p. 111.
J.-P. Serre, Course in Arithmetic, Chap. VII, Section 4.

Seiichi Manyama, Table of n, a(n) for n = 0..10000
Index entries for sequences related to Eisenstein series

Cf. A058552.

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (E_12), A058550 (E_14), A029829 (E_16), A029830 (E_20), A029831 (E_24).

E := proc(k) local n,t1; t1 := 1-(2*k/bernoulli(k))*add(sigma[k-1](n)*q^n,n=1..60); series(t1,q,60); end; E(16);

terms = 12;
E16[x_] = 3617 + 16320*Sum[k^15*x^k/(1 - x^k), {k, 1, terms}];
E16[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

a(n)=if(n<1,3617*(n==0),16320*sigma(n,15))

a(n) = 1617*A282012(n) + 2000*A282287(n). - Seiichi Manyama, Feb 11 2017

A282015 Coefficients in q-expansion of E_4^5, where E_4 is the Eisenstein series shown in A004009.

Original entry on oeis.org

1, 1200, 586800, 148641600, 20400279600, 1439038231200, 46093334702400, 861697555612800, 10894180752126000, 102121497049868400, 755966260027216800, 4623420005167550400, 24151632380348692800, 110516281318431693600, 451789183426135939200

Offset: 0

Seiichi Manyama, Feb 05 2017

nonn

G. E. Andrews and B. C. Berndt, Ramanujan's lost notebook, Part III, Springer, New York, 2012, See p. 208.

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Cf. A004009 (E_4), A008410 (E_4^2), A008411 (E_4^3), A282012 (E_4^4), this sequence (E_4^5).

Cf. A013967, A037945, A281788.

terms = 15;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E4[x]^5 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

G.f.: (1 + 240 Sum_{i>=1} i^3 q^i/(1-q^i))^5.

13200 * A013967(n) = 174611 * a(n) - 209520000 * A037945(n) for n > 0.

A386787 a(n) = n^4*sigma_7(n).

Original entry on oeis.org

0, 1, 2064, 177228, 4227328, 48828750, 365798592, 1977329144, 8657571840, 31395415077, 100782540000, 285311685252, 749200886784, 1792160422598, 4081207353216, 8653821705000, 17730707193856, 34271896391154, 64800136718928, 116490259028540, 206415142080000, 350438089532832

Offset: 0

Vaclav Kotesovec, Aug 02 2025

Vincenzo Librandi, Table of n, a(n) for n = 0..7500

Cf. A280022, A386783, A280025, A386784, A386785, A386786, A386788.
Cf. A013955, A282060, A282753, A386781.
Cf. A386815, A386816, A282012, A386817, A282596, A386818, A282287.

[0] cat [n^4*DivisorSigma(7, n): n in [1..35]]; // Vincenzo Librandi, Aug 03 2025

Table[n^4*DivisorSigma[7, n], {n, 0, 30}]
(* or *)
nmax = 30; CoefficientList[Series[Sum[k^4*x^k*(1 + 2036*x^k + 152637*x^(2*k) + 2203488*x^(3*k) + 9738114*x^(4*k) + 15724248*x^(5*k) + 9738114*x^(6*k) + 2203488*x^(7*k) + 152637*x^(8*k) + 2036*x^(9*k) + x^(10*k))/(1 - x^k)^12, {k, 1, nmax}], {x, 0, nmax}], x]
(* or *)
terms = 30; E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}]; E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}]; E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}]; CoefficientList[Series[(33*E2[x]^4*E4[x]^2 + 110*E2[x]^2*E4[x]^3 + 13*E4[x]^4 - 132*E2[x]^3*E4[x]*E6[x] - 132*E2[x]*E4[x]^2*E6[x] + 88*E2[x]^2*E6[x]^2 + 20*E4[x]*E6[x]^2)/41472, {x, 0, terms}], x]

G.f.: Sum_{k>=1} k^4*x^k*(1 + 2036*x^k + 152637*x^(2*k) + 2203488*x^(3*k) + 9738114*x^(4*k) + 15724248*x^(5*k) + 9738114*x^(6*k) + 2203488*x^(7*k) + 152637*x^(8*k) + 2036*x^(9*k) + x^(10*k))/(1 - x^k)^12.
a(n) = (33*A386815(n) + 110*A386816(n) + 13*A282012(n) - 132*A386817(n) - 132*A282596(n) + 88*A386818(n) + 20*A282287(n))/41472.
a(n) = n^4*A013955(n).
Dirichlet g.f.: zeta(s-4)*zeta(s-11). - R. J. Mathar, Aug 03 2025

A282292 Coefficients in q-expansion of E_10^2, where E_10 is the Eisenstein series A013974.

Original entry on oeis.org

1, -528, -201168, 61114944, 20946935856, 1443146395680, 46053422547264, 861726789128832, 10894843149545520, 102119072037503664, 755968133350219680, 4623420033182073024, 24151660069581371712, 110516194189880866464, 451789196756619249792

Offset: 0

Seiichi Manyama, Feb 11 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Eisenstein Series.

Cf. A281374 (E_2^2), A008410 (E_4^2), A280869 (E_6^2), A282012 (E_8^2), this sequence (E_10^2).

terms = 15;
E10[x_] = 1 - 264*Sum[k^9*x^k/(1 - x^k), {k, 1, terms}];
E10[x]^2 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 23 2018 *)

A282330 Coefficients in q-expansion of E_4^6, where E_4 is the Eisenstein series A004009.

Original entry on oeis.org

1, 1440, 876960, 292072320, 57349833120, 6660135541440, 436536302762880, 15172132360815360, 327295477379498400, 4913576699608450080, 55439481453769056960, 496426192564963006080, 3672749219557161663360, 23148323907214334109120

Offset: 0

Seiichi Manyama, Feb 12 2017

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Eisenstein Series.

Cf. A004009 (E_4), A008410 (E_4^2), A008411 (E_4^3), A282012 (E_4^4), A282015 (E_4^5), this sequence (E_4^6).

terms = 14;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E4[x]^6 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

G.f.: (1 + 240 Sum_{i>=1} i^3 q^i/(1-q^i))^6.

A282331 Coefficients in q-expansion of E_6^4, where E_6 is the Eisenstein series A013973.

Original entry on oeis.org

1, -2016, 1457568, -411997824, 16227967392, 6497071680960, 440015323483008, 15172068869975808, 327221898778968480, 4913597307075535008, 55440561879404210880, 496424806634688962688, 3672744471642078903168, 23148319448757751932096

Offset: 0

Seiichi Manyama, Feb 12 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Eisenstein Series.

Cf. A013973 (E_6), A280869 (E_6^2), A282253 (E_6^3), this sequence (E_6^4).

Cf. A282210 (E_2^4), A282012 (E_4^4), this sequence (E_6^4).

terms = 14;
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
E6[x]^4 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

E6(q)^4 = (1 - 504 Sum_{i>=1} sigma_5(i)q^i)^4 where sigma_5(n) is A001160.

A282402 Coefficients in q-expansion of E_4^7, where E_4 is the Eisenstein series A004009.

Original entry on oeis.org

1, 1680, 1224720, 505659840, 129351117840, 21060890131680, 2160822606183360, 134717272385473920, 4957295423282269200, 119288258695393463760, 2051465861242156554720, 26894077218337493424960, 281803532524538902825920

Offset: 0

Seiichi Manyama, Feb 14 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Cf. A004009 (E_4), A008410 (E_4^2), A008411 (E_4^3), A282012 (E_4^4), A282015 (E_4^5), A282330 (E_4^6), this sequence (E_4^7).

terms = 13;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E4[x]^7 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

A282546 Coefficients in q-expansion of E_2*E_4^4, where E_2 and E_4 are respectively the Eisenstein series A006352 and A004009.

Original entry on oeis.org

1, 936, 331128, 52972704, 3355523352, 16684536816, -1540796901408, -39871325253312, -522168659242920, -4651083548616312, -31647933913392432, -175516717881381408, -827283695234707872, -3413277291552455376, -12598120840018061376, -42296015537631706176

Offset: 0

Seiichi Manyama, Feb 18 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Cf. A006352 (E_2), A004009 (E_4), A282012 (E_4^4).

Cf. A282019 (E_2*E_4), A282101 (E_2*E_4^2), A282549 (E_2*E_4^3), this sequence (E_2*E_4^4).

terms = 16;
E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E2[x]* E4[x]^4 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

A282597 Expansion of phi_{14, 1}(x) where phi_{r, s}(x) = Sum_{n, m>0} m^r * n^s * x^{m*n}.

Original entry on oeis.org

0, 1, 16386, 4782972, 268468228, 6103515630, 78373779192, 678223072856, 4398583447560, 22876806803877, 100012207113180, 379749833583252, 1284076017413616, 3937376385699302, 11113363271818416, 29192944359852360, 72066391204823056, 168377826559400946

Offset: 0

Seiichi Manyama, Feb 19 2017

Multiplicative because A013961 is. - Andrew Howroyd, Jul 25 2018

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Cf. A064987 (phi_{2, 1}), A281372 (phi_{4, 1}), A282050 (phi_{6, 1}), A282060 (phi_{8, 1}), A282254 (phi_{10, 1}), A282548 (phi_{12, 1}), this sequence (phi_{14, 1}).
Cf. A282012 (E_4^4), A282287 (E_4*E_6^2), A282596 (E_2*E_4^2*E_6).
Cf. A013672.

Table[n * DivisorSigma[13, n], {n, 0, 17}] (* Amiram Eldar, Sep 06 2023 *)

a(n) = if(n < 1, 0, n*sigma(n, 13)) \\ Andrew Howroyd, Jul 25 2018

a(n) = n*A013961(n) for n > 0.
a(n) = (3*A282012(n) + 4*A282287(n) - 7*A282596(n))/144.
Sum_{k=1..n} a(k) ~ zeta(14) * n^15 / 15. - Amiram Eldar, Sep 06 2023
From Amiram Eldar, Oct 30 2023: (Start)
Multiplicative with a(p^e) = p^e * (p^(13*e+13)-1)/(p^13-1).
Dirichlet g.f.: zeta(s-1)*zeta(s-14). (End)

A319134 Expansion of -((25E_4^4 - 49E_6^2E4) + 48E_6E_4^2E_2 + (-49E_4^3 + 25E_6^2)E_2^2)/(3657830400delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.

Original entry on oeis.org

1, 86, 3750, 109672, 2419462, 43021728, 643548464, 8343640624, 95835049605, 991606081332, 9364586280842, 81571540591968, 661034448807902, 5019357866562208, 35927279225314344, 243657157464337888, 1572638456431119570, 9696997279843999470, 57313953586222481126, 325672739267123628976

Offset: 1

Seiichi Manyama, Sep 11 2018

nonn

			((25*E_4^4 - 49*E_6^2*E4) + 48*E_6*E_4^2*E_2 + (-49*E_4^3 + 25*E_6^2)*E_2^2)/(delta^2) =  - 3657830400*q - 314573414400*q^2 - 13716864000000*q^3 - 401161575628800*q^4 - ... .

Seiichi Manyama, Table of n, a(n) for n = 1..5000
H. Cohn, A. Kumar, S. Miller, D. Radchenko, M. Viazovska, The sphere packing problem in dimension 24, Annals of Mathematics, 185 (3) (2017), 1017-1033.
Wikipedia, Sphere packing

Cf. A000594, A006352 (E_2), A004009 (E_4), A013973 (E_6), A082558, A281373,

About the numerator: A282012 (E_4^4), A282287 (E_6^2*E_4), A282596 (E_6*E_4^2*E_2), A008411 (E_4^3), A280869 (E_6^2), A281374 (E_2^2).

nmax = 25; E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); Rest[CoefficientList[Series[-((25*E4[x]^4 - 49*E6[x]^2*E4[x]) + 48*E6[x]*E4[x]^2*E2[x] + (-49*E4[x]^3 + 25*E6[x]^2)* E2[x]^2) / (3657830400 * x^2 * QPochhammer[x]^48), {x, 0, nmax}], x]] (* Vaclav Kotesovec, Sep 12 2018 *)

a(n) ~ exp(4*Pi*sqrt(2*n)) / (132300 * 2^(1/4) * Pi^2 * n^(23/4)). - Vaclav Kotesovec, Sep 12 2018

cp's OEIS Frontend

A029829 Eisenstein series E_16(q) (alternate convention E_8(q)), multiplied by 3617.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A282015 Coefficients in q-expansion of E_4^5, where E_4 is the Eisenstein series shown in A004009.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

A386787 a(n) = n^4*sigma_7(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Formula

A282292 Coefficients in q-expansion of E_10^2, where E_10 is the Eisenstein series A013974.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A282330 Coefficients in q-expansion of E_4^6, where E_4 is the Eisenstein series A004009.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A282331 Coefficients in q-expansion of E_6^4, where E_6 is the Eisenstein series A013973.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A282402 Coefficients in q-expansion of E_4^7, where E_4 is the Eisenstein series A004009.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A282546 Coefficients in q-expansion of E_2*E_4^4, where E_2 and E_4 are respectively the Eisenstein series A006352 and A004009.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A282597 Expansion of phi_{14, 1}(x) where phi_{r, s}(x) = Sum_{n, m>0} m^r * n^s * x^{m*n}.

Views

Author

Keywords

Comments

A319134 Expansion of -((25E_4^4 - 49E_6^2E4) + 48E_6E_4^2E_2 + (-49E_4^3 + 25E_6^2)E_2^2)/(3657830400delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.