A307494 Expansion of Product_{j>=1} 1/(1 - j*(-1 + Product_{k>=1} 1/(1 - k*x^k))^j).

1, 1, 6, 30, 145, 680, 3151, 14394, 65217, 293223, 1310255, 5820697, 25725139, 113161286, 495659656, 2162471602, 9399682398, 40716499477, 175798072996, 756709512011, 3247830724594, 13901967775738, 59352638426839, 252778786749676, 1074061758972744, 4553583433874616, 19264461634793094

Offset: 0

Author

Ilya Gutkovskiy, Apr 15 2019

Keywords

• nonn

Crossrefs

Cf. A006906, A307127, A307321, A307566.

Programs

Mathematica

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

Formula

G.f.: g(g(x) - 1), where g(x) = g.f. of A006906.