OFFSET
1,2
MATHEMATICA
x=7; Select[ Range[ 200000 ], PowerMod[ #, x-1, x^5 ]==1& ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 08 2000
STATUS
approved