A046014 Discriminants of imaginary quadratic fields with class number 17 (negated).

383, 991, 1091, 1571, 1663, 1783, 2531, 3323, 3947, 4339, 4447, 4547, 4651, 5483, 6203, 6379, 6451, 6827, 6907, 7883, 8539, 8731, 9883, 11251, 11443, 12907, 13627, 14083, 14779, 14947, 16699, 17827, 18307, 19963, 21067, 23563, 24907, 25243, 26083, 26107, 27763, 31627, 33427, 36523, 37123

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn
• fini
• full

Comments

45 discriminants in this sequence (proved).

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.
• Keith Matthews, Tables of imaginary quadratic fields with small class numbers
• C. Wagner, Class Number 5, 6 and 7, Math. Comput. 65, 785-800, 1996.
• Eric Weisstein's World of Mathematics, Class Number.
• Index entries for sequences related to quadratic fields

Crossrefs

Cf. A006203, A013658, A014602, A014603, A046002-A046020.

Programs

Mathematica

Reap[ For[n = 1, n < 40000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 17, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)