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: A084685 A151794 A181528 * A053686 A080198 A077637
Adjacent sequences: A058056 A058057 A058058 * A058060 A058061 A058062
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 21 2000