1,1

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

Sequence in context: A075376 A032935 A004831 this_sequence A114974 A101075 A022370

Adjacent sequences: A058239 A058240 A058241 this_sequence A058243 A058244 A058245

nonn

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