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,3

Links

Table of n, a(n) for n=0..28.

Formula

G.f.: g(x*g(x)), where g(x) = g.f. of A000219.

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]

Crossrefs

Cf. A000219, A238440, A307321, A307571.

Sequence in context: A095930 A026850 A109642 * A164589 A377315 A017950

Adjacent sequences: A307567 A307568 A307569 * A307571 A307572 A307573

Keyword

nonn

Author

Ilya Gutkovskiy, Apr 15 2019

Status

approved