A357427 Expansion of Product_{k>=0} 1 / (1 + x^Lucas(k)).

1, -1, 0, -1, 1, 0, 1, -2, 2, -2, 2, -3, 3, -2, 4, -5, 4, -5, 5, -5, 6, -6, 8, -9, 8, -9, 9, -9, 11, -12, 13, -14, 14, -15, 15, -16, 20, -20, 20, -23, 23, -23, 25, -28, 31, -31, 32, -36, 36, -36, 41, -44, 45, -47, 49, -52, 54, -56, 62, -65, 65, -69, 72, -74, 79, -83, 87, -91

Offset: 0

Author

Ilya Gutkovskiy, Sep 28 2022

Keywords

• sign

Comments

Convolution inverse of A067595.

Crossrefs

Cf. A000032, A067595, A357383.

Programs

Mathematica

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