|
%I #6 May 02 2018 22:37:14
%S 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,
%T 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,
%U 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
%N Expansion of (1 - x^2)*Product_{k>=3} (1 + x^Fibonacci(k)).
%C First differences of A000119.
%H Ilya Gutkovskiy, <a href="/A303903/a303903.jpg">Scatter plot of a(n) up to n=50000</a>
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%t nmax = 85; CoefficientList[Series[(1 - x^2) Product[1 + x^Fibonacci[k], {k, 3, 21}], {x, 0, nmax}], x]
%Y Cf. A000045, A000119, A003107, A087897, A238999, A239002.
%K sign
%O 0,9
%A _Ilya Gutkovskiy_, May 02 2018
|
