A307574 Expansion of Product_{k>=1} (1 - (x/(1-x))^k)^k.
1, -1, -3, -6, -10, -11, 3, 63, 240, 677, 1622, 3415, 6277, 9485, 8917, -9299, -83683, -309568, -902995, -2315518, -5411355, -11662530, -23117627, -41317787, -62820880, -65358588, 29550902, 449154266, 1783671567, 5453429052, 14668699694, 36273441659
Offset: 0
Keywords
Programs
-
Mathematica
m = 31; CoefficientList[Series[Product[(1 - (x/(1-x))^k)^k, {k, 1, m}], {x, 0, m}], x] (* Amiram Eldar, May 14 2021 *)
-
PARI
N=66; x='x+O('x^N); Vec(prod(k=1, N, (1-(x/(1-x))^k)^k))