login
A171724
Discriminants of imaginary quadratic fields with class number 22 (negated).
2
591, 623, 767, 871, 879, 1076, 1111, 1167, 1304, 1556, 1591, 1639, 1903, 2215, 2216, 2263, 2435, 2623, 2648, 2815, 2863, 2935, 3032, 3151, 3316, 3563, 3587, 3827, 4084, 4115, 4163, 4328, 4456, 4504, 4667, 4811, 5383, 5416, 5603, 5716
OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Class Number.
MATHEMATICA
Reap[ For[n = 1, n < 6000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 22, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
CROSSREFS
Sequence in context: A204752 A320713 A116170 * A195894 A263555 A156835
KEYWORD
nonn,fini
AUTHOR
N. J. A. Sloane, Oct 03 2010
STATUS
approved