OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..285
MATHEMATICA
Do[If[PowerMod[7, n, n-1]==n-2, Print[n]], {n, 2, 2*10^7}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
STATUS
approved