login
A255208
Primes p for which exactly five bases b with 1 < b < p exist such that p is a base b Wieferich prime.
8
653, 4909, 7723, 9811, 13691, 15413, 18133, 18223, 21061, 22147, 25679, 29131, 33923, 35353, 36913, 37633, 46021, 57527, 61819, 66107, 71059, 72643, 77867, 79867, 85061, 87509, 89113, 96757, 97213, 98641, 117977, 118163, 120247, 122209, 123653, 126443, 129061
OFFSET
1,1
COMMENTS
p = prime(n) such that A242830(n) = 5.
PROG
(PARI) forprime(p=1, , b=2; i=0; while(b < p, if(Mod(b, p^2)^(p-1)==1, i++); b++); if(i==5, print1(p, ", ")))
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Feb 17 2015
STATUS
approved