|
%I #16 Nov 03 2018 11:45:29
%S 1,0,-1,-1,-1,0,-1,1,1,2,2,2,0,0,2,-2,-1,-3,-1,-4,-4,-4,-1,-1,-2,0,3,
%T 7,3,4,5,7,5,8,3,2,4,1,-6,-2,-8,-8,-12,-9,-9,-11,-13,-12,-6,-8,-6,-8,
%U 11,5,6,8,18,12,22,21,28,26,28,12,21,22,11,0,0,-4,-18,-17,-38
%N Expansion of Product_{1 <= i < j} (1 - x^(i*j)).
%H Seiichi Manyama, <a href="/A321300/b321300.txt">Table of n, a(n) for n = 0..10000</a>
%F G.f.: Product_{k>0} (1 - x^k)^A056924(k).
%t nmax = 100; CoefficientList[Series[Product[(1 - x^k)^Floor[DivisorSigma[0, k]/2], {k, 1, nmax}], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Nov 03 2018 *)
%Y Convolution inverse of A321285.
%Y Cf. A056924, A321286, A321299.
%K sign,look
%O 0,10
%A _Seiichi Manyama_, Nov 03 2018
|
