OFFSET
0,1
LINKS
Andy Huchala, Table of n, a(n) for n = 0..510 (first 40 terms from Eric Weisstein)
Eric Weisstein's World of Mathematics, Class Number.
MATHEMATICA
Reap[ For[n = 1, n < 4000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 24, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
PROG
(Sage)
ls = [(QuadraticField(-n, 'a').discriminant(), QuadraticField(-n, 'a').class_number()) for n in (0..10000) if is_fundamental_discriminant(-n) and not is_square(n)];
[-a[0] for a in ls if a[1] == 24] # Andy Huchala, Feb 15 2022
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved