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

1, 696, 161928, 12599904, -22912728, -6132581424, -107015308128, -1012991092032, -6676225539480, -34225591158312, -145164618698832, -530958452207328, -1722320395791072, -5059903726594416, -13673185634909376, -34406198518205376, -81397333990275864

Offset: 0

Author

Seiichi Manyama, Feb 18 2017

Keywords

• sign

Links

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

Crossrefs

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

Programs

Mathematica

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