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

1, 2, 8, 26, 73, 210, 558, 1460, 3663, 9090, 21846, 51690, 120140, 274480, 618656, 1374792, 3017867, 6546610, 14053312, 29852658, 62825894, 131025056, 270948160, 555811298, 1131498850, 2286780266, 4589706604, 9151298134, 18131193484, 35706460678, 69910352496

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Cf. A000219, A022629, A266891, A267004, A268500, A268501.

Sequence in context: A212140 A357283 A136594 * A167826 A301995 A325926

Adjacent sequences: A268499 A268500 A268501 * A268503 A268504 A268505

Keyword

nonn

Author

Vaclav Kotesovec, Feb 06 2016

Status

approved