1,2
Joerg Arndt, Fxtbook
Do[ If[ ToString[ Factor[ x^n + x^3 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^3 + 1 ], Print[ n ] ], {n, 0, 750} ]
Cf. A002475.
Sequence in context: A047570 A129132 A191843 * A139448 A070116 A039057
Adjacent sequences: A057458 A057459 A057460 * A057462 A057463 A057464
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000
a(24) - a(29) from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 06 2010