1,1

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

Cf. A057483.

Sequence in context: A059891 A020213 A011979 this_sequence A131863 A074870 A104236

Adjacent sequences: A058216 A058217 A058218 this_sequence A058220 A058221 A058222

nonn

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