|
%I #5 Oct 02 2022 10:29:12
%S 1,-1,-1,0,0,2,0,-1,0,0,1,-1,-1,1,0,1,-1,-1,0,1,1,-1,0,0,0,1,-1,-1,0,
%T 0,2,0,0,-1,-1,1,0,0,0,0,1,-1,-1,0,0,2,0,-1,0,0,1,0,-2,0,0,1,1,-1,0,0,
%U 0,0,0,0,0,1,-1,-1,0,0,2,0,-1,0,0,1,-1,-1,1,0,1,-1,-1,1,0,0,-1,0,2,0,0,-1,-1,1
%N Expansion of Product_{k>=0} (1 - x^Lucas(k)).
%C Convolution inverse of A067593.
%t nmax = 100; CoefficientList[Series[Product[(1 - x^LucasL[k]), {k, 0, 20}], {x, 0, nmax}], x]
%Y Cf. A000032, A067593, A093996, A357380, A357382.
%K sign
%O 0,6
%A _Ilya Gutkovskiy_, Oct 02 2022
|
