A280150 Primes p such that 68^(p-1) == 1 (mod p^2).
5, 7, 19, 113, 2741
Offset: 1
Links
- R. Fischer, Thema: Fermatquotient B^(P-1) == 1 (mod P^2)
Programs
-
Mathematica
Select[Prime[Range[500]],PowerMod[68,#-1,#^2]==1&] (* Harvey P. Dale, Aug 07 2019 *)
-
PARI
forprime(p=1, , if(Mod(68, p^2)^(p-1)==1, print1(p, ", "))) \\ Felix Fröhlich, Dec 27 2016
Extensions
a(5) from Felix Fröhlich, Dec 27 2016
Comments