A282461 -id:A282461 - cp's OEIS frontend

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

1, -552, 8640, 116000, -4868460, 67855536, -544522240, 2742137280, -8237774250, 10592091400, 3366617856, 113971542048, -1217020425880, 4535746506000, -5415752171520, -19090509870144, 93580817811453, -142801363479240, -80721277168000, 665065363025280

Offset: 2

Seiichi Manyama, Jul 19 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.

Cf. A000594, A010839, A013973 (E_6).
Cf. A282382, A282461 (E_6*E_10*E_14 = E_10^3), A290049, A290050.
E_k*Delta^2: A290178 (k=4), this sequence (k=6), A290180 (k=8), A290181 (k=10), A290182 (k=14).

terms = 20;
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
E6[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 Hankel matrix [E_6, E_8, E_10 ; E_8, E_10, E_12 ; E_10, E_12, E_14]. G.f. is -691^2*b(q)/(1728^2*250^2).

a(n) = (A290050(n) - 2*691*A290049(n) + 691^2*A282382(n))/(1728^2*250^2).

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

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula