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: A085697 A121184 A089093 this_sequence A007688 A100774 A107767

Adjacent sequences: A058231 A058232 A058233 this_sequence A058235 A058236 A058237

nonn

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