A055111 Numbers k such that Q(sqrt(-k)) has class number 10.
74, 86, 119, 122, 143, 159, 166, 181, 197, 218, 229, 303, 317, 319, 346, 373, 394, 415, 421, 422, 538, 541, 611, 613, 635, 694, 699, 709, 757, 779, 803, 851, 853, 877, 923, 982, 1093, 1115, 1213, 1318, 1643, 1707, 1779, 1819, 1835, 1891, 1923
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Select[Range[10000], MoebiusMu[#] != 0 && NumberFieldClassNumber[Sqrt[-#]] == 10 &] (* Jinyuan Wang, Mar 08 2020 *)
-
PARI
\\ See A005847.