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

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

Offset

0,6

Comments

Convolution inverse of A067593.

Links

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

Mathematica

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

Crossrefs

Cf. A000032, A067593, A093996, A357380, A357382.

Sequence in context: A307597 A307056 A112762 * A145171 A117154 A074941

Adjacent sequences: A357517 A357518 A357519 * A357521 A357522 A357523

Keyword

sign

Author

Ilya Gutkovskiy, Oct 02 2022

Status

approved