|
|
A046003
|
|
Discriminants of imaginary quadratic fields with class number 6 (negated).
|
|
3
|
|
|
87, 104, 116, 152, 212, 244, 247, 339, 411, 424, 436, 451, 472, 515, 628, 707, 771, 808, 835, 843, 856, 1048, 1059, 1099, 1108, 1147, 1192, 1203, 1219, 1267, 1315, 1347, 1363, 1432, 1563, 1588, 1603, 1843, 1915, 1963, 2227, 2283, 2443, 2515, 2563, 2787, 2923, 3235, 3427, 3523, 3763
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Union[(-NumberFieldDiscriminant[Sqrt[-#]] &) /@ Select[Range[3800], NumberFieldClassNumber[Sqrt[-#]] == 6 &]] (* Jean-François Alcover, Jun 27 2012 *)
|
|
PROG
|
(PARI) ok(n)={isfundamental(-n) && quadclassunit(-n).no == 6};
for(n=1, 4000, if(ok(n)==1, print1(n, ", "))) \\ G. C. Greubel, Mar 01 2019
(Sage) [n for n in (1..4000) if is_fundamental_discriminant(-n) and QuadraticField(-n, 'a').class_number()==6] # G. C. Greubel, Mar 01 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|