A171724 Discriminants of imaginary quadratic fields with class number 22 (negated).

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

Author

N. J. A. Sloane, Oct 03 2010

Keywords

• nonn
• fini

Links

• Eric Weisstein's World of Mathematics, Class Number.

Crossrefs

Cf. A046018, A046020.

Programs

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 *)