|
%I #13 Nov 12 2017 05:12:18
%S 1,-1,-16,-65,-79,831,4789,15099,6450,-162454,-922222,-2766802,
%T -2885883,17436735,123724783,429826690,823702295,-482288111,
%U -11124249861,-50746426204,-140257438535,-188609543978,446818695084,4049784546745,15671762002156
%N Expansion of Product_{k>=1} (1 - k^2*x^k)^(k^2).
%H Seiichi Manyama, <a href="/A294584/b294584.txt">Table of n, a(n) for n = 0..3799</a>
%t nmax = 30; CoefficientList[Series[Product[(1 - k^2*x^k)^(k^2), {k, 1, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Nov 12 2017 *)
%o (PARI) N=66; x='x+O('x^N); Vec(prod(k=1, N, (1-k^2*x^k)^k^2))
%Y Column k=2 of A294583.
%Y Cf. A294586.
%K sign
%O 0,3
%A _Seiichi Manyama_, Nov 03 2017
|
