A357380 Expansion of Product_{k>=1} (1 - x^Fibonacci(k)).

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

Offset

0,2

Comments

Convolution inverse of A007000.

First differences of A093996.

Links

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

Mathematica

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

Crossrefs

Cf. A000045, A007000, A093996, A357381.

Sequence in context: A344986 A117165 A213629 * A278522 A024363 A050600

Adjacent sequences: A357377 A357378 A357379 * A357381 A357382 A357383

Keyword

sign

Author

Ilya Gutkovskiy, Sep 26 2022

Status

approved