1,1
Do[ If[ ToString[ Factor[ x^n + x^2 + 1, Modulus -> 7 ] ] == ToString[ x^n + x^2 + 1 ], Print[ n ] ], {n, 1, 1016} ]
Sequence in context: A182751 A057576 A100852 * A018186 A015938 A116614
Adjacent sequences: A059003 A059004 A059005 * A059007 A059008 A059009
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 16 2001