OFFSET
1,1
MATHEMATICA
Do[If[PowerMod[11, n, n-1]==n-2, Print[n]], {n, 2, 10^7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
STATUS
approved