1,2
Do[ If[ ToString[ Factor[ x^n + x^7 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^7 + 1 ], Print[ n ] ], {n, 0, 750} ]
Cf. A002475.
Sequence in context: A082694 A004793 A031132 * A113887 A103000 A074321
Adjacent sequences: A057474 A057475 A057476 * A057478 A057479 A057480
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000