1,2

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

Cf. A057476.

Adjacent sequences: A058237 A058238 A058239 this_sequence A058241 A058242 A058243

Sequence in context: A030606 A090661 A047615 this_sequence A097268 A003653 A003655

nonn

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