|
|
A046012
|
|
Discriminants of imaginary quadratic fields with class number 15 (negated).
|
|
5
|
|
|
239, 439, 751, 971, 1259, 1327, 1427, 1567, 1619, 2243, 2647, 2699, 2843, 3331, 3571, 3803, 4099, 4219, 5003, 5227, 5323, 5563, 5827, 5987, 6067, 6091, 6211, 6571, 7219, 7459, 7547, 8467, 8707, 8779, 9043, 9907, 10243, 10267, 10459, 10651
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
68 discriminants in this sequence (proved).
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[ For[n = 1, n < 12000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 15, 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
|
|
|
|