A029829 -id:A029829 - cp's OEIS frontend

A279893 Eisenstein series E_22(q) (alternate convention E_11(q)), multiplied by 77683.

77683, -552, -1157628456, -5774114968608, -2427722831757864, -263214111328125552, -12109202528761173024, -308317316973972772416, -5091303792066668003880, -60399282006368937251976, -552000263214112485753456, -4084937969230504375869024, -25394838301602325644596256, -136379620048544616772836528, -646588586243917921590531648

Offset: 0

Seiichi Manyama, Dec 22 2016

sign

J.-P. Serre, Course in Arithmetic, Chap. VII, Section 4.

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

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), this sequence (77683*E_22), A029831 (236364091*E_24).

Cf. A282047 (E_4^4*E_6), A282328 (E_4*E_6^3).

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

G.f.: 77683 - 552 * Sum_{i>=1} sigma_21(i)q^i where sigma_21(n) is A013969.

a(n) = 57183*A282047(n) + 20500*A282328(n). - Seiichi Manyama, Feb 12 2017

A282356 Eisenstein series E_26(q) (alternate convention E_13(q)), multiplied by 657931.

Original entry on oeis.org

657931, -24, -805306392, -20334926626656, -27021598569529368, -7152557373046875024, -682326933054044766048, -32185646871935157619392, -906694391732570450559000, -17229551704624797057112632, -240000007152557373852181392

Offset: 0

Seiichi Manyama, Feb 13 2017

sign

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

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), A279893 (77683*E_22), A029831 (236364091*E_24), this sequence (657931*E_26).

Cf. A282048 (E_4^5*E_6), A282357 (E_4^2*E_6^3).

terms = 11;
E26[x_] = 657931 - 24*Sum[k^25*x^k/(1 - x^k), {k, 1, terms}];
E26[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

a(n) = 392931*A282048(n) + 265000*A282357(n).

A145154 Coefficients in expansion of Eisenstein series E_1.

Original entry on oeis.org

1, 4, 8, 8, 12, 8, 16, 8, 16, 12, 16, 8, 24, 8, 16, 16, 20, 8, 24, 8, 24, 16, 16, 8, 32, 12, 16, 16, 24, 8, 32, 8, 24, 16, 16, 16, 36, 8, 16, 16, 32, 8, 32, 8, 24, 24, 16, 8, 40, 12, 24, 16, 24, 8, 32, 16, 32, 16, 16, 8, 48

Offset: 0

N. J. A. Sloane, Feb 28 2009

nonn

			1 + 4*q + 8*q^2 + 8*q^3 + 12*q^4 + 8*q^5 + 16*q^6 + 8*q^7 + 16*q^8 + ...

Antti Karttunen, Table of n, a(n) for n = 0..10000
M. Kaneko and D. Zagier, Supersingular j-invariants, hypergeometric series and Atkin's orthogonal polynomials, pp. 97-126 of D. A. Buell and J. T. Teitelbaum, eds., Computational Perspectives on Number Theory, Amer. Math. Soc., 1998

Cf. A000005, 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).

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

terms = 61; CoefficientList[1+4*Sum[x^k/(1-x^k), {k, 1, terms}]+O[x]^terms, x] (* Jean-François Alcover, Feb 27 2018 *)

{a(n) = if( n<1, n==0, 4 * numdiv(n))} /* Michael Somos, Jul 04 2011 */

a(0) = 1; for n >= 1, a(n) = 4*A000005(n). [After the PARI-program of Michael Somos.] - Antti Karttunen, May 25 2017

A282401 Eisenstein series E_28(q) (alternate convention E_14(q)), multiplied by 3392780147.

Original entry on oeis.org

3392780147, 6960, 934155393840, 53074158495516480, 125380214560150002480, 51856040954589843756960, 7123493021854278627673920, 457358042050198589771226240, 16828247534415852672059972400, 404722169541211889603611092720

Offset: 0

Seiichi Manyama, Feb 14 2017

nonn

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

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), A279893 (77683*E_22), A029831 (236364091*E_24), A282356 (657931*E_26), this sequence (3392780147*E_28).

Cf. A282402 (E_4^7), A282403 (E_4^4*E_6^2), A282404 (E_4*E_6^4).

terms = 10;
E28[x_] = 3392780147 + 6960*Sum[k^27*x^k/(1 - x^k), {k, 1, terms}];
E28[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

a(n) = 489693897*A282402(n) + 2507636250*A282403(n) + 395450000*A282404(n).

A282182 Eisenstein series E_30(q) (alternate convention E_15(q)), multiplied by 1723168255201.

Original entry on oeis.org

1723168255201, -171864, -92268782591832, -11795091175438423776, -49536425459206569762648, -32012164592742919922046864, -6332441368275869747902027488, -553385882817076320573218661312, -26594665913504249904864455466840

Offset: 0

Seiichi Manyama, Feb 16 2017

sign

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

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), A279893 (77683*E_22), A029831 (236364091*E_24), A282356 (657931*E_26), A282401 (3392780147*E_28), this sequence (1723168255201*E_30).

Cf. A282382 (E_4^6*E_6), A282461 (E_4^3*E_6^3), A282433 (E_6^5).

terms = 9;
E30[x_] = 1723168255201 - 171864*Sum[k^29*x^k/(1 - x^k), {k, 1, terms}];
E30[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

a(n) = 815806500201*A282382(n) + 881340705000*A282461(n) + 26021050000*A282433(n).

A058552 Numerators of q-expansion of Eisenstein series E_16(q).

Original entry on oeis.org

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

Offset: 0

N. J. A. Sloane, Dec 25 2000

Denominators are 3617 except for leading term for which denominator is 1.

R. C. Gunning, Lectures on Modular Forms. Princeton Univ. Press, Princeton, NJ, 1962, p. 53.
N. Koblitz, Introduction to Elliptic Curves and Modular Forms, Springer-Verlag, 1984, see p. 111.

Index entries for sequences related to Eisenstein series

Cf. A029829.

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 = 13; E16[x_] = 1 - (32/BernoulliB[16])*Sum[k^15*(x^k/(1 - x^k)), {k, 1, terms}]; E16[x] + O[x]^terms // CoefficientList[#, x]& // Numerator (* Jean-François Alcover, Feb 27 2018 *)

A282540 Eisenstein series E_32(q) (alternate convention E_16(q)), multiplied by 7709321041217.

Original entry on oeis.org

7709321041217, 32640, 70093866303360, 20160859654708062720, 150525431711563807489920, 151991844177246093750032640, 43295116458269350559666465280, 5149788469617367127914995164160, 323250903208723929093223124860800

Offset: 0

Seiichi Manyama, Feb 17 2017

nonn

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

Cf. A006352 (E_2), A004009 (E_4), A013973 (E_6), A008410 (E_8), A013974 (E_10), A029828 (691*E_12), A058550 (E_14), A029829 (3617*E_16), A279892 (43867*E_18), A029830 (174611*E_20), A279893 (77683*E_22), A029831 (236364091*E_24), A282356 (657931*E_26), A282401 (3392780147*E_28), A282182 (1723168255201*E_30), this sequence (7709321041217*E_32).

Cf. A282474 (E_4^8), A282541 (E_4^5*E_6^2), A282543 (E_4^2*E_6^4).

terms = 9;
E32[x_] = 7709321041217 + 32640*Sum[k^31*x^k/(1 - x^k), {k, 1, terms}];
E32[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

a(n) = 764412173217*A282474(n) + 5323905468000 * A282541(n) + 1621003400000 * A282543(n).

cp's OEIS Frontend

A279893 Eisenstein series E_22(q) (alternate convention E_11(q)), multiplied by 77683.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

A282356 Eisenstein series E_26(q) (alternate convention E_13(q)), multiplied by 657931.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A145154 Coefficients in expansion of Eisenstein series E_1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A282401 Eisenstein series E_28(q) (alternate convention E_14(q)), multiplied by 3392780147.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A282182 Eisenstein series E_30(q) (alternate convention E_15(q)), multiplied by 1723168255201.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A058552 Numerators of q-expansion of Eisenstein series E_16(q).

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Maple

Mathematica

A282540 Eisenstein series E_32(q) (alternate convention E_16(q)), multiplied by 7709321041217.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula