OFFSET
1,1
MATHEMATICA
Do[If[PowerMod[6, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
Terms a(4) onward from Max Alekseyev, Oct 12 2012
STATUS
approved