|
%I #8 Nov 11 2020 09:03:54
%S 1,-1,-3,-3,-1,10,20,36,28,-11,-103,-245,-397,-448,-214,464,1817,3680,
%T 5660,6473,4362,-3232,-18428,-41946,-70589,-94890,-96996,-49673,78907,
%U 317995,673299,1105044,1491333,1605102,1094914,-479358,-3561322,-8404118,-14781724,-21595744,-26450603,-25329527
%N Expansion of Product_{k>=1} (1 - x^k)^(k*(k+1)/2).
%C Convolution inverse of A000294 (Euler transform of the triangular numbers).
%F G.f.: Product_{k>=1} (1 - x^k)^(k*(k+1)/2).
%t nmax = 41; CoefficientList[Series[Product[(1 - x^k)^(k (k + 1)/2), {k, 1, nmax}], {x, 0, nmax}], x]
%o (SageMath) # uses[EulerTransform from A166861]
%o b = EulerTransform(lambda n: -binomial(n+1, 2))
%o print([b(n) for n in range(37)]) # _Peter Luschny_, Nov 11 2020
%Y Cf. A000294, A027999, A028377.
%K sign
%O 0,3
%A _Ilya Gutkovskiy_, Sep 15 2017
|
