1,1

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

Cf. A057480.

Sequence in context: A109240 A020740 A086980 this_sequence A050585 A050555 A060669

Adjacent sequences: A058200 A058201 A058202 this_sequence A058204 A058205 A058206

nonn

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