A307570 Expansion of Product_{j>=1} 1/(1 - x^j*Product_{k>=1} 1/(1 - x^k)^(k*j))^j.
1, 1, 4, 15, 58, 215, 789, 2850, 10219, 36330, 128383, 450997, 1576384, 5484086, 18997492, 65547958, 225329592, 771920515, 2635815051, 8972752531, 30456389557, 103095375148, 348071445217, 1172252449310, 3938655968745, 13203699803684, 44167916497886, 147442143911193, 491220771388477
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 28; CoefficientList[Series[Product[1/(1 - x^j Product[1/(1 - x^k)^(k j), {k, 1, nmax}])^j, {j, 1, nmax}], {x, 0, nmax}], x]
Formula
G.f.: g(x*g(x)), where g(x) = g.f. of A000219.