|
|
A275118
|
|
Split primes p such that prime P lying above p is a Wieferich place of K (with discriminant D_K), for some imaginary quadratic field K of class number 1.
|
|
0
|
|
|
5, 11, 13, 181, 1523, 1741, 2521, 19531, 24421, 29789, 76543, 108529, 489061, 880301, 1769069, 6811741
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(Sage)
if not Integer(k).is_prime(): return False
for D in [1, 2, 3, 7, 11, 19, 43, 67, 163]:
fct = QuadraticField(-D).ideal(k).factor()
if len(fct)==2:
pi = fct[1][0].gens_reduced()[0]
if (pi^(k-1) - 1).valuation(fct[0][0]) > 1: return True
return False
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|