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

Links

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

Formula

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

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]

Crossrefs

Cf. A006906, A307127, A307321, A307566.

Sequence in context: A276022 A046945 A216045 * A316593 A089817 A364460

Adjacent sequences: A307491 A307492 A307493 * A307495 A307496 A307497

Keyword

nonn

Author

Ilya Gutkovskiy, Apr 15 2019

Status

approved