A218157 Fundamental discriminants of real quadratic number fields with class number 7.
577, 1009, 1601, 1761, 2029, 2913, 4229, 4348, 5176, 5273, 5417, 7736, 8097, 8661, 8773, 9004, 9029, 9049, 9101, 9208, 9289, 9868, 10117, 10313, 10357, 10713, 10957, 11021, 11053, 11269, 11537, 11621, 12497, 12977, 13049, 13313, 13701, 14201, 15277, 15809
Offset: 1
Keywords
Links
- Eric Weisstein's World of Mathematics, Class Number
- Index entries for sequences related to quadratic fields
Programs
-
Mathematica
Select[Range[15809], NumberFieldDiscriminant@Sqrt[#] == # && NumberFieldClassNumber@Sqrt[#] == 7 &]