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

1, 0, -1, -2, -4, -2, -5, 6, 7, 18, 31, 50, 17, 34, 39, -122, -134, -296, -298, -556, -670, -692, 64, 26, 1119, 1054, 3953, 6804, 6645, 9250, 8644, 9702, 2817, 11386, -12415, -36382, -47757, -71782, -122506, -99540, -191083, -176382, -253722, -166706, -21024

Offset: 0

Author

Vaclav Kotesovec, Jan 08 2016

Keywords

• sign

Comments

Convolution of A022661 and A000041.

Links

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

Crossrefs

Cf. A000041, A022661, A267004.

Programs

Mathematica

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