A253683 Primes p in increasing order with p > A253684(n) > A253685(n) such that (p, A253684(n), A253685(n)) forms a Wieferich triple.
71, 863, 1093, 2281, 3511, 13691, 20771, 54787, 950507, 1843757, 3188089
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(p, ", ")))))
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