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: A080762 A047570 A129132 this_sequence A139448 A070116 A039057
Adjacent sequences: A057458 A057459 A057460 this_sequence A057462 A057463 A057464
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000
Search completed in 0.002 seconds