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

1, -2, -2, 0, 6, 8, 0, 4, -10, -50, -36, 16, 12, 80, 44, 88, 390, 180, -94, -712, -1624, -312, -688, 1476, 4444, -6954, -5812, 3816, 7728, 36600, 25708, -13308, -53586, -127048, 10104, 120936, 73490, 157400, -395168, -529472, 833888, 265916, 19300, -1132576

Offset: 0

Author

Seiichi Manyama, Sep 14 2017

Keywords

• sign

Links

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

Crossrefs

Cf. A022661, A022693, A265758.

Programs

Mathematica

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

Formula

Convolution of A022661 and A022693.

Convolution inverse of A265758.