|
|
A046007
|
|
Discriminants of imaginary quadratic fields with class number 10 (negated).
|
|
3
|
|
|
119, 143, 159, 296, 303, 319, 344, 415, 488, 611, 635, 664, 699, 724, 779, 788, 803, 851, 872, 916, 923, 1115, 1268, 1384, 1492, 1576, 1643, 1684, 1688, 1707, 1779, 1819, 1835, 1891, 1923, 2152, 2164, 2363, 2452, 2643, 2776, 2836, 2899, 3028
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
87 discriminants in this sequence (almost certainly but not proved).
|
|
LINKS
|
|
|
MATHEMATICA
|
Union[(-NumberFieldDiscriminant[Sqrt[-#]] &) /@ Select[Range[14000], NumberFieldClassNumber[Sqrt[-#]] == 10 &]] (* Jean-François Alcover, Jun 27 2012 *)
|
|
PROG
|
(PARI) ok(n)={isfundamental(-n) && qfbclassno(-n) == 10} \\ Andrew Howroyd, Jul 24 2018
(Sage) [n for n in (1..3500) if is_fundamental_discriminant(-n) and QuadraticField(-n, 'a').class_number()==10] # G. C. Greubel, Mar 01 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|