A344095 a(n) = [x^n] Product_{k>=1} 1 / (1 - n^(k+1)*x^k).

1, 1, 24, 1053, 91136, 12671875, 2696063616, 809983364505, 327495685505024, 171227271945676302, 112357985100000000000, 90363823728354065308166, 87385452532420018496864256, 100018623822234988019520698561, 133709300217761726319712591577088

Offset: 0

Author

Vaclav Kotesovec, May 09 2021

Keywords

• nonn

Links

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

Crossrefs

Cf. A338697, A344094.

Programs

Mathematica

Table[SeriesCoefficient[Product[1/(1-n^(k+1)*x^k), {k, 1, n}], {x, 0, n}], {n, 0, 20}]
Join[{1}, Table[SeriesCoefficient[x + (1-n)/QPochhammer[n, n*x], {x, 0, n}], {n, 1, 20}]]

Formula

a(n) ~ n^(2*n).