|
%I #7 Apr 16 2019 15:28:06
%S 1,1,4,15,58,215,789,2850,10219,36330,128383,450997,1576384,5484086,
%T 18997492,65547958,225329592,771920515,2635815051,8972752531,
%U 30456389557,103095375148,348071445217,1172252449310,3938655968745,13203699803684,44167916497886,147442143911193,491220771388477
%N Expansion of Product_{j>=1} 1/(1 - x^j*Product_{k>=1} 1/(1 - x^k)^(k*j))^j.
%F G.f.: g(x*g(x)), where g(x) = g.f. of A000219.
%t 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]
%Y Cf. A000219, A238440, A307321, A307571.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Apr 15 2019
|
