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

1, 1, 3, 6, 17, 28, 66, 116, 248, 441, 867, 1516, 2894, 5015, 9138, 15724, 27954, 47428, 82421, 138380, 235910, 392040, 657590, 1081225, 1789550, 2914500, 4763562, 7689071, 12433581, 19897139, 31862226, 50583981, 80285138, 126509709, 199167763, 311620226

Offset

0,3

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Mathematica

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

Crossrefs

Cf. A000294, A061256, A182269, A279216, A280540, A327065, A327066, A327067.

Sequence in context: A024315 A235088 A369707 * A307604 A049943 A231184

Adjacent sequences: A327065 A327066 A327067 * A327069 A327070 A327071

Keyword

nonn

Author

Vaclav Kotesovec, Aug 19 2019

Status

approved