|
|
A046020
|
|
Discriminants of imaginary quadratic fields with class number 23 (negated).
|
|
44
|
|
|
647, 1039, 1103, 1279, 1447, 1471, 1811, 1979, 2411, 2671, 3491, 3539, 3847, 3923, 4211, 4783, 5387, 5507, 5531, 6563, 6659, 6703, 7043, 9587, 9931, 10867, 10883, 12203, 12739, 13099, 13187, 15307, 15451, 16267, 17203, 17851, 18379, 20323
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[ Do[ If[ NumberFieldClassNumber[ Sqrt[-n] ] == 23, d = -NumberFieldDiscriminant[ Sqrt[-n] ]; Print[d]; Sow[d]], {n, 1, 21000}]][[2, 1]] // Union (* Jean-François Alcover, Oct 22 2012 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
|
|
EXTENSIONS
|
68 discriminants in this sequence (proved).
|
|
STATUS
|
approved
|
|
|
|