OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..200
MATHEMATICA
Do[If[PowerMod[5, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Select[Range[2, 35*10^6], PowerMod[5, #, #-1]==#-2&] (* Harvey P. Dale, Aug 13 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
a(22) corrected by Amiram Eldar, Jul 23 2021
STATUS
approved