1,2

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

Cf. A002475.

Adjacent sequences: A057473 A057474 A057475 this_sequence A057477 A057478 A057479

Sequence in context: A141772 A032496 A002092 this_sequence A016041 A140797 A038893

nonn

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