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

1, 0, 1, 2, 2, 6, 7, 14, 11, 42, 39, 70, 95, 142, 239, 378, 418, 624, 1106, 1200, 2250, 2836, 4166, 4902, 8021, 10410, 14961, 21268, 29477, 36714, 54172, 68358, 95071, 134946, 168035, 254190, 322335, 427338, 541054, 787264, 964969, 1340730, 1748094, 2311386

Offset: 0

Author

Vaclav Kotesovec, Feb 06 2016

Keywords

• nonn

Links

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

Crossrefs

Cf. A022629, A267004, A267005, A268498, A268499.

Programs

Mathematica

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