cp's OEIS Frontend

A001490 Expansion of {Product_{j>=1} (1 - (-x)^j) - 1}^12 in powers of x.

%I A001490 M4845 N2071 #21 Sep 06 2023 01:31:08
%S A001490 1,-12,66,-220,483,-660,252,1320,-4059,6644,-6336,240,12255,-27192,
%T A001490 35850,-27972,-2343,50568,-99286,122496,-96162,11584,115116,-242616,
%U A001490 315216,-283800,128304,126280,-409398,622644,-671550,501468,-122508,-382360
%N A001490 Expansion of {Product_{j>=1} (1 - (-x)^j) - 1}^12 in powers of x.
%D A001490 H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.
%D A001490 M. Kontsevich and D. Zagier, Periods, pp. 771-808 of B. Engquist and W. Schmid, editors, Mathematics Unlimited - 2001 and Beyond, 2 vols., Springer-Verlag, 2001.
%D A001490 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D A001490 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A001490 G. C. Greubel, <a href="/A001490/b001490.txt">Table of n, a(n) for n = 1..10000</a>
%F A001490 G.f.: (eta(z)*eta(6*z)/(eta(2*z)*eta(3*z)))^12.
%F A001490 a(n) = [x^n]( QPochhammer(-x) - 1 )^12. - _G. C. Greubel_, Sep 05 2023
%t A001490 With[{k=12}, Drop[CoefficientList[Series[(QPochhammer[-x] -1)^k, {x, 0, 102}], x], k]] (* _G. C. Greubel_, Sep 04 2023 *)
%o A001490 (Magma)
%o A001490 m:=102;
%o A001490 R<x>:=PowerSeriesRing(Integers(), m);
%o A001490 Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(12) )); // _G. C. Greubel_, Sep 05 2023
%o A001490 (SageMath)
%o A001490 from sage.modular.etaproducts import qexp_eta
%o A001490 m=100; k=12;
%o A001490 def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
%o A001490 def A001490_list(prec):
%o A001490     P.<x> = PowerSeriesRing(QQ, prec)
%o A001490     return P( f(k,x) ).list()
%o A001490 a=A001490_list(m); a[k:] # _G. C. Greubel_, Sep 05 2023
%o A001490 (PARI) my(N=55,x='x+O('x^N)); Vec((eta(-x)-1)^12) \\ _Joerg Arndt_, Sep 05 2023
%Y A001490 Cf. A001482 - A001488, A047638 - A047649, A047654, A047655, A341243.
%K A001490 sign
%O A001490 1,2
%A A001490 _N. J. A. Sloane_