1,1

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

Cf. A057461.

Sequence in context: A138744 A070897 A018380 this_sequence A102918 A018395 A136538

Adjacent sequences: A058233 A058234 A058235 this_sequence A058237 A058238 A058239

nonn

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