1,2
Joerg Arndt, Fxtbook
Do[ If[ ToString[ Factor[ x^n + x^4 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^4 + 1 ], Print[ n ] ], {n, 0, 750} ]
Cf. A002475.
Sequence in context: A099204 A070993 A128539 this_sequence A118258 A117583 A126106
Adjacent sequences: A057460 A057461 A057462 this_sequence A057464 A057465 A057466
nonn,more
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000
Search completed in 0.002 seconds
