A357382 Expansion of Product_{k>=1} (1 - x^Lucas(k)).

1, -1, 0, -1, 0, 1, 0, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, -1, 1, 0, 0, 0, 0, 0, 1, -1, 0, -1, 0, 1, 0, 1, -1, 0, 0, 0, 0, 0, 0, 1, -1, 0, -1, 0, 1, 0, 0, 0, 0, 1, 0, -1, 0, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, -1, 0, 1, 0, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, 0, 0, 0, -1, 0, 1, 0, 1, -1

Offset

0

Comments

Convolution inverse of A067592.

Links

Table of n, a(n) for n=0..91.

Mathematica

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

Crossrefs

Cf. A000204, A067592, A357383.

Sequence in context: A147612 A323509 A197183 * A295405 A267001 A141735

Adjacent sequences: A357379 A357380 A357381 * A357383 A357384 A357385

Keyword

sign

Author

Ilya Gutkovskiy, Sep 26 2022

Status

approved