1,1

Do[ If[ ToString[ Factor[ x^n + x^5 + 2, Modulus -> 3 ] ] == ToString[ x^n + x^5 + 2 ], Print[ n ] ], {n, 0, 1000} ]

Sequence in context: A112160 A132040 A114315 this_sequence A073437 A019196 A086561

Adjacent sequences: A058235 A058236 A058237 this_sequence A058239 A058240 A058241

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2000