1,1

Do[ If[ ToString[ Factor[ x^n + x^8 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^8 + 1 ], Print[ n ] ], {n, 0, 750} ]

Cf. A002475.

Sequence in context: A133763 A146475 A100556 this_sequence A128687 A146789 A020172

Adjacent sequences: A057475 A057476 A057477 this_sequence A057479 A057480 A057481

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000