1,1

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

Sequence in context: A062112 A084685 A151794 this_sequence A053686 A080198 A077637

Adjacent sequences: A058056 A058057 A058058 this_sequence A058060 A058061 A058062

nonn

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