1,1
Do[ If[ ToString[ Factor[ x^n + x^9 + 2, Modulus -> 3 ] ] == ToString[ x^n + x^9 + 2 ], Print[ n ] ], {n, 0, 1600} ]
Cf. A057479.
Sequence in context: A121184 A203840 A089093 * A188125 A007688 A197132
Adjacent sequences: A058231 A058232 A058233 * A058235 A058236 A058237
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2000