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
Keywords
Programs
-
Mathematica
nmax = 100; CoefficientList[Series[Product[(1 - x^Fibonacci[k]), {k, 1, 21}], {x, 0, nmax}], x]
Comments