A058550 -id:A058550 - cp's OEIS frontend

A289295 Coefficients in expansion of E_14^(1/2).

1, -12, -98388, -20312544, -5889254484, -2083830070392, -810894400450848, -334381509272710464, -143464412162723380308, -63364234685240118242604, -28614423885137875351570248, -13150804531745894256074689056

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

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

E_k^(1/2): A289291 (k=2), A289292 (k=4), A289293 (k=6), A004009 (k=8), A289294 (k=10), this sequence (k=14).

Cf. A058550 (E_14), A289029.

nmax = 20; s = 14; CoefficientList[Series[Sqrt[1 - 2*s/BernoulliB[s] * Sum[DivisorSigma[s - 1, k]*x^k, {k, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 02 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(A289029(n)/2).

a(n) ~ c * exp(2*Pi*n) / n^(3/2), where c = -9 * Pi^(7/2) / (2^(11/2) * Gamma(3/4)^16) = -0.422728335899452596724927626919867458580193404969719... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018

A290182 Coefficients in expansion of E_14*Delta^2 where Delta is the generating function of Ramanujan's tau function (A000594).

Original entry on oeis.org

1, -72, -194400, -28866400, 13994100, 9650004336, -99683138560, -1007380800, 5570606272950, -32186306471000, -2717893793664, 724443400725408, -2662202398202200, -401005712372400, 19385312101171200, 24633489938571456, -449375771787124707

Offset: 2

Seiichi Manyama, Jul 23 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 2..1000
S. C. Milne, Hankel determinants of Eisenstein series, preprint, arXiv:0009130 [math.NT], 2000.

E_k*Delta^2: A290178 (k=4), A290048 (k=6), A290180 (k=8), A290181 (k=10), this sequence (k=14).

Cf. A000594, A058550 (E_14).

terms = 17;
E14[x_] = 1 - 24*Sum[k^13*x^k/(1 - x^k), {k, 1, terms}];
E14[x]*QPochhammer[x]^48 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

Let b(q) be the determinant of the 3 X 3 matrix [E_8, E_10, E_14 ; E_10, E_12, E_16 ; E_12, E_14, E_18]. G.f. is -691^2*3617*43867*b(q)/(1728^2*2^6*3*5^3*7^2*97*7213).

A282047 Coefficients in q-expansion of E_4^4*E_6, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Original entry on oeis.org

1, 456, -146232, -133082976, -32170154808, -3378441902544, -155862776255328, -3969266446940352, -65538944782146360, -777506848190979672, -7105808014591457232, -52584752452485047328, -326903300701760852832, -1755591608260377411216

Offset: 0

Seiichi Manyama, Feb 05 2017

sign

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), A013973 (E_6), A013974 (E_4*E_6 = E_10), A058550 (E_4^2*E_6 = E_14), A282000 (E_4^3*E_6), this sequence (E_4^4*E_6), A282048 (E_4^5*E_6).

Cf. A013969, A037946, A281956.

terms = 14;
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}];
E4[x]^4*E6[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

-552 * A013969(n) = 77683 * a(n) - 35424000 * A037946(n) for n > 0.

A282048 Coefficients in q-expansion of E_4^5*E_6, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Original entry on oeis.org

1, 696, -34632, -167186976, -64422848328, -11387712944304, -1037073232984608, -48892286706157632, -1378097272692189000, -26188038166214133672, -364779879415169299632, -3952277018332870144608, -34798618196377082329632, -257403706082325167732976

Offset: 0

Seiichi Manyama, Feb 05 2017

sign

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), A013973 (E_6), A013974 (E_4*E_6 = E_10), A058550 (E_4^2*E_6 = E_14), A282000 (E_4^3*E_6), A282047 (E_4^4*E_6), this sequence (E_4^5*E_6).

Cf. A037947, A281959, A281979.

terms = 14;
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}];
E4[x]^5*E6[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

-24 * A281959(n) = 657931 * a(n) - 457920000 * A037947(n) for n > 0.

A386781 a(n) = n^3*sigma_7(n).

Original entry on oeis.org

0, 1, 1032, 59076, 1056832, 9765750, 60966432, 282475592, 1082196480, 3488379453, 10078254000, 25937425932, 62433407232, 137858494046, 291514810944, 576921447000, 1108169199616, 2015993905362, 3600007595496, 6131066264660, 10320757104000, 16687528072992, 26767423561824

Offset: 0

Vaclav Kotesovec, Aug 02 2025

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

Cf. A282211, A386746, A282213, A386748, A282781, A386780, A386782.
Cf. A013955, A282060, A282753.
Cf. A386813, A282549, A282792, A058550, A282576.

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

Table[n^3*DivisorSigma[7, n], {n, 0, 30}]
(* or *)
nmax = 30; CoefficientList[Series[Sum[k^10*x^k*(x^(2*k) + 4*x^k + 1)/(1 - x^k)^4, {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[(3*E2[x]^3*E4[x]^2 + 5*E2[x]*E4[x]^3 - 9*E2[x]^2*E4[x]*E6[x] - 3*E4[x]^2*E6[x] + 4*E2[x]*E6[x]^2)/3456, {x, 0, terms}], x]

G.f.: Sum_{k>=1} k^10*x^k*(x^(2*k) + 4*x^k + 1)/(1 - x^k)^4.
a(n) = (3*A386813(n) + 5*A282549(n) - 9*A282792(n) - 3*A058550(n) + 4*A282576(n))/3456.
a(n) = n^3*A013955(n).
Dirichlet g.f.: zeta(s-3)*zeta(s-10). - R. J. Mathar, Aug 03 2025

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).

A289391 Coefficients in expansion of E_14^(1/4).

Original entry on oeis.org

1, -6, -49212, -10451544, -4218246978, -1581565900392, -677142351901080, -293172823731286848, -132241381826055031692, -60651805300034501958126, -28350123351848675673466968, -13420046900399367136336144200

Offset: 0

Seiichi Manyama, Jul 05 2017

sign

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

E_k^(1/4): A289392 (k=2), A289307 (k=4), A289326 (k=6), A289292 (k=8), A110150 (k=10), this sequence (k=14).

Cf. A004984, A058550 (E_14).

nmax = 20; CoefficientList[Series[(1 - 24*Sum[DivisorSigma[13, k]*x^k, {k, 1, nmax}])^(1/4), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 08 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(A289029(n)/4).
a(n) ~ c * exp(2*Pi*n) / n^(5/4), where c = -3*Pi^2 / (2^(17/4) * Gamma(3/4)^9) = -0.2497407198517688195944362279691013167903920989625478927175764401875... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018
G.f.: Sum_{k>=0} A004984(k) * (3*f(q))^k where f(q) is Sum_{k>=1} sigma_13(k)*q^k. - Seiichi Manyama, Jun 16 2018

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

A282357 Coefficients in q-expansion of E_4^2*E_6^3, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Original entry on oeis.org

1, -1032, 48312, 171162336, -6444771144, -10105554483504, -1037089473751584, -48959817978105408, -1378102838778701640, -26186640301645703016, -364779940958775418032, -3952291567255306906464, -34798629548716507265568, -257403564989318828310384

Offset: 0

Seiichi Manyama, Feb 13 2017

sign

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

Cf. A008410 (E_4^2 = E_8), A058550 (E_4^2*E_6 = E_14), A282292 (E_4^2*E_6^2 = E_10^2), this sequence (E_4^2*E_6^3).

terms = 14;
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}];
E4[x]^2*E6[x]^3 + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

A282382 Coefficients in q-expansion of E_4^6*E_6, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Original entry on oeis.org

1, 936, 134568, -173988576, -104617833048, -27210540914064, -3910401774129888, -322823174243838912, -15429983442476298840, -469709326015243815672, -9973673112569954220432, -158215072218253260221088, -1972939697011615168926432

Offset: 0

Seiichi Manyama, Feb 16 2017

sign

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

Cf. A004009 (E_4), A013973 (E_6), A013974 (E_4*E_6 = E_10), A058550 (E_4^2*E_6 = E_14), A282000 (E_4^3*E_6), A282047 (E_4^4*E_6), A282048 (E_4^5*E_6), this sequence (E_4^6*E_6).

terms = 13;
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}];
E4[x]^6*E6[x] + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 27 2018 *)

cp's OEIS Frontend

A289295 Coefficients in expansion of E_14^(1/2).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A290182 Coefficients in expansion of E_14*Delta^2 where Delta is the generating function of Ramanujan's tau function (A000594).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A282047 Coefficients in q-expansion of E_4^4*E_6, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

A282048 Coefficients in q-expansion of E_4^5*E_6, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

A386781 a(n) = n^3*sigma_7(n).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Formula

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A289391 Coefficients in expansion of E_14^(1/4).

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

A282357 Coefficients in q-expansion of E_4^2*E_6^3, where E_4 and E_6 are respectively the Eisenstein series A004009 and A013973.