A306456 - OEIS

%I #27 Apr 05 2019 17:46:20

%S 1,1,0,-2,-1,-2,-3,-10,-15,-19,-17,7,59,116,102,-74,-468,-775,-242,

%T 2111,6388,10102,7421,-8768,-40024,-73196,-75164,-288,182990,445127,

%U 639603,478509,-380391,-2042730,-3922746,-4484102,-1857055,4235012,10177841,8792321,-4085840

%N Expansion of Product_{j>=1} (1 - (-1 + Product_{k>=1} (1 - x^k))^j).

%F G.f.: g(g(x) - 1), where g(x) = g.f. of A010815.

%t nmax = 40; CoefficientList[Series[Product[(1 - (-1 + Product[(1 - x^k), {k, 1, nmax}])^j), {j, 1, nmax}], {x, 0, nmax}], x]

%t nmax = 40; CoefficientList[Series[QPochhammer[QPochhammer[x] - 1], {x, 0, nmax}], x]

%Y Cf. A010815, A238440, A307127.

%K sign

%O 0,4

%A _Ilya Gutkovskiy_, Apr 05 2019