1,1
Do[ If[ ToString[ Factor[ x^n + x^8 + 2, Modulus -> 3] ] == ToString[ x^n + x^8 + 2], Print[ n ] ], {n, 0, 1000} ]
Cf. A057478.
Sequence in context: A088411 A075073 A157420 * A060733 A033078 A118598
Adjacent sequences: A058240 A058241 A058242 * A058244 A058245 A058246
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2000