|
|
A046016
|
|
Discriminants of imaginary quadratic fields with class number 19 (negated).
|
|
6
|
|
|
311, 359, 919, 1063, 1543, 1831, 2099, 2339, 2459, 3343, 3463, 3467, 3607, 4019, 4139, 4327, 5059, 5147, 5527, 5659, 6803, 8419, 8923, 8971, 9619, 10891, 11299, 15091, 15331, 16363, 16747, 17011, 17299, 17539, 17683, 19507, 21187, 21211, 21283, 23203, 24763, 26227, 27043, 29803, 31123, 37507, 38707
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
47 discriminants in this sequence (proved).
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[ For[ n = 1, n < 40000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 19, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|