1,1
Do[ If[ ToString[ Factor[ x^n + x^12 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^12 + 1 ], Print[ n ] ], {n, 0, 750} ]
Cf. A002475.
Sequence in context: A084229 A191356 A144753 * A114136 A025072 A083107
Adjacent sequences: A057479 A057480 A057481 * A057483 A057484 A057485
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000