OFFSET
0,2
MATHEMATICA
Join[{0}, Table[Exponent[FactorList[Sum[x^i, {i, 0, 2*n}], Modulus -> 2][[2, 1]], x], {n, 100}]] (* T. D. Noe, Sep 19 2012 *)
PROG
(PARI) vector(100, p, factormod((x^(2*p+1)+1)/(x+1), 2, 1)[1, 1])
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Sep 17 2012
STATUS
approved