|
|
A123563
|
|
Discriminants of imaginary quadratic fields with class number 20 (negated).
|
|
2
|
|
|
455, 615, 776, 824, 836, 920, 1064, 1124, 1160, 1263, 1284, 1460, 1495, 1524, 1544, 1592, 1604, 1652, 1695, 1739, 1748, 1796, 1880, 1887, 1896, 1928, 1940, 1956, 2136, 2247, 2360, 2404, 2407, 2483, 2487, 2532, 2552
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A finite sequence with exactly 350 terms.
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[ For[n = 1, n < 3000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 20, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|