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