1,2

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

Cf. A057460.

Sequence in context: A026444 A003171 A028970 this_sequence A067186 A133675 A050122

Adjacent sequences: A058232 A058233 A058234 this_sequence A058236 A058237 A058238

nonn

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