OFFSET
1,1
MATHEMATICA
Do[ k = 1; While[ ToString[ Factor[ x^Prime[n] + x^k + 1, Modulus -> 5]] != ToString[ x^Prime[n] + x^k + 1] && k < (Prime[n] + 1)/2, k++ ]; If[k != (Prime[n] + 1)/2, Print[ Prime[n]]], {n, 1, 75}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 01 2003
STATUS
approved