login
A046010
Discriminants of imaginary quadratic fields with class number 13 (negated).
4
191, 263, 607, 631, 727, 1019, 1451, 1499, 1667, 1907, 2131, 2143, 2371, 2659, 2963, 3083, 3691, 4003, 4507, 4643, 5347, 5419, 5779, 6619, 7243, 7963, 9547, 9739, 11467, 11587, 11827, 11923, 12043, 14347, 15787, 16963, 20563
OFFSET
1,1
LINKS
Steven Arno, M. L. Robinson, Ferrell S. Wheeler, Imaginary quadratic fields with small odd class number, Acta Arith. 83 (1998) 295-330.
Duncan A. Buell, Small class numbers and extreme values of L-functions of quadratic fields, Math. Comp., 31 (1977), 786-796.
C. Wagner, Class Number 5, 6 and 7, Math. Comput. 65, 785-800, 1996.
Eric Weisstein's World of Mathematics, Class Number.
MATHEMATICA
Reap[ For[n = 1, n < 21000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 13, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
KEYWORD
nonn,fini,full
STATUS
approved