A248865
Primes p that set a new record for the number of bases 1 < b < p for which p is a base-b Wieferich prime.
Original entry on oeis.org
2, 11, 269, 487, 653, 1093, 3511, 1006003
Offset: 1
Subsequence of
A175932. Apart from the first term, subsequence of
A134307.
-
my(r=-1); forprime(p=2, , my(b=2, i=0); while(b < p, if(Mod(b, p^2)^(p-1)==1, i++); b++); if(i > r, print1(p, ", "); r=i)) \\ changed to include a(1) = 2 by Jianing Song, Feb 07 2019
A252232
a(n) = smallest prime q where exactly n primes p exist such that p < q and q^(p-1) == 1 (mod p^2), i.e., smallest prime base q having exactly n Wieferich primes less than q.
Original entry on oeis.org
5, 17, 19, 233, 293, 977, 1451, 1693, 33301, 308093
Offset: 1
a(5) = 293, because q = 293 is the smallest prime for which there are exactly five primes p with p < q such that q^(p-1) == 1 (mod p^2), namely 2, 5, 7, 19 and 83.
-
for(n=1, 10, q=2; while(q > 1, q=nextprime(q+1); i=0; forprime(p=2, q, if(Mod(q, p^2)^(p-1)==1, i++); if(i==n, print1(q, ", "); break({2})))))
A334048
Primes p that set a new record for the number of bases 1 < b < p for which p is a base-b Wieferich prime and b is not a perfect power.
Original entry on oeis.org
2, 11, 71, 269, 653, 5107, 103291, 728471, 2544079
Offset: 1
Prime 5107 is Wieferich to six bases (under 5107), namely 560, 1209, 1779, 2621, 4295, 4361, none of which are perfect powers. A prime such as 1093 is Wieferich to ten bases, namely 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024; however, when dismissing perfect powers, only one of the ten bases is left. In fact, no prime less than 5107 has six or more bases when perfect powers are dismissed, so 5107 sets a record and is included in this sequence.
-
r=-oo; forprime(p=2,, i=sum(b=2,p-1,!ispower(b) && Mod(b,p^2)^(p-1)==1); if(i>r, print1(p, ", "); r=i))
Showing 1-3 of 3 results.
Comments