1,1

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

Cf. A057482.

Sequence in context: A156430 A095914 A045218 this_sequence A037386 A062317 A140510

Adjacent sequences: A058213 A058214 A058215 this_sequence A058217 A058218 A058219

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 30 2000