login
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.
4
1, 696, 161928, 12599904, -22912728, -6132581424, -107015308128, -1012991092032, -6676225539480, -34225591158312, -145164618698832, -530958452207328, -1722320395791072, -5059903726594416, -13673185634909376, -34406198518205376, -81397333990275864
OFFSET
0,2
LINKS
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 *)
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).
Sequence in context: A222782 A282048 A163008 * A069330 A218156 A160206
KEYWORD
sign
AUTHOR
Seiichi Manyama, Feb 18 2017
STATUS
approved