A170967 Expansion of Product_{i=0..m-1} (1 + x^(4*i+1)) for m = 4.
1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 2, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1
Offset: 0
Programs
-
Mathematica
CoefficientList[Series[Product[1+x^(4i+1),{i,0,3}],{x,0,30}],x] (* Harvey P. Dale, Jul 11 2019 *)