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

%I #5 Sep 26 2022 20:17:37

%S 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,

%T -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,

%U 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

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

%C Convolution inverse of A007000.

%C First differences of A093996.

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

%Y Cf. A000045, A007000, A093996, A357381.

%K sign

%O 0,2

%A _Ilya Gutkovskiy_, Sep 26 2022