1,2

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

Cf. A057463.

Sequence in context: A060138 A139487 A035422 this_sequence A009388 A125871 A104737

Adjacent sequences: A058234 A058235 A058236 this_sequence A058238 A058239 A058240

nonn

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