A303903 Expansion of (1 - x^2)*Product_{k>=3} (1 + x^Fibonacci(k)).

1, 0, 0, 1, -1, 1, 0, -1, 2, -1, 0, 1, -2, 2, 0, -1, 2, -2, 1, 0, -2, 3, -1, 0, 2, -3, 2, 0, -2, 3, -2, 0, 1, -3, 3, 0, -1, 3, -3, 2, 0, -3, 4, -2, 0, 2, -4, 3, 0, -2, 3, -3, 1, 0, -3, 4, -1, 0, 3, -4, 3, 0, -3, 5, -3, 0, 2, -5, 4, 0, -2, 4, -4, 2, 0, -4, 5, -2, 0, 3, -5, 3, 0, -3, 4, -3

Offset: 0

Author

Ilya Gutkovskiy, May 02 2018

Keywords

• sign

Comments

First differences of A000119.

Links

• Ilya Gutkovskiy, Scatter plot of a(n) up to n=50000
• Index entries for sequences related to partitions

Crossrefs

Cf. A000045, A000119, A003107, A087897, A238999, A239002.

Programs

Mathematica

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