cp's OEIS Frontend

A282576 Coefficients in q-expansion of E_2*E_6^2, where E_2 and E_6 are respectively the Eisenstein series A006352 and A013973.

%I A282576 #13 Feb 27 2018 02:58:45
%S A282576 1,-1032,244872,11293536,-12738264,-6174312624,-106952602464,
%T A282576 -1012788556608,-6677393391000,-34223823782376,-145162615601232,
%U A282576 -530968614112224,-1722312703896288,-5059890748287984,-13673195356609728,-34406230066992576,-81397361282611992
%N A282576 Coefficients in q-expansion of E_2*E_6^2, where E_2 and E_6 are respectively the Eisenstein series A006352 and A013973.
%H A282576 Seiichi Manyama, <a href="/A282576/b282576.txt">Table of n, a(n) for n = 0..1000</a>
%t A282576 terms = 17;
%t A282576 E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
%t A282576 E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
%t A282576 E2[x]*E6[x]^2 + O[x]^terms // CoefficientList[#, x]& (* _Jean-François Alcover_, Feb 27 2018 *)
%Y A282576 Cf. A006352 (E_2), A013973 (E_6), A282096 (E_2*E_6).
%K A282576 sign
%O A282576 0,2
%A A282576 _Seiichi Manyama_, Feb 18 2017