|
|
A046002
|
|
Discriminants of imaginary quadratic fields with class number 5 (negated).
|
|
46
|
|
|
47, 79, 103, 127, 131, 179, 227, 347, 443, 523, 571, 619, 683, 691, 739, 787, 947, 1051, 1123, 1723, 1747, 1867, 2203, 2347, 2683
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Union[(-NumberFieldDiscriminant[Sqrt[-#]] &) /@ Select[Range[2700], NumberFieldClassNumber[Sqrt[-#]] == 5 &]] (* Jean-François Alcover, Jun 27 2012 *)
|
|
PROG
|
(Sage) [n for n in (1..3000) if is_fundamental_discriminant(-n) and QuadraticField(-n, 'a').class_number()==5] # G. C. Greubel, Mar 01 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|