A253684 Primes q with A253683(n) > q > A253685(n) such that (A253683(n), q, A253685(n)) forms a Wieferich triple.
11, 23, 5, 1667, 73, 821, 18043, 2393, 20771, 2251, 1006003
Offset: 1
Links
- Wikipedia, Wieferich pair
Programs
-
PARI
forprime(p=1, , forprime(q=1, p, forprime(r=1, q, if((Mod(p, q^2)^(q-1)==1 && Mod(q, r^2)^(r-1)==1 && Mod(r, p^2)^(p-1)==1) || (Mod(p, r^2)^(r-1)==1 && Mod(r, q^2)^(q-1)==1 && Mod(q, p^2)^(p-1)==1), print1(q, ", ")))))
Extensions
a(8) from Felix Fröhlich, Jun 18 2016
Name edited by Felix Fröhlich, Jun 18 2016
a(9)-a(11) from Giovanni Resta, Jun 20 2016
Comments