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: A025614 A057576 A100852 this_sequence A018186 A015938 A116614

Adjacent sequences: A059003 A059004 A059005 this_sequence A059007 A059008 A059009

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 16 2001