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
KEYWORD
nonn,fini
AUTHOR
N. J. A. Sloane, Oct 03 2010
STATUS
approved