|
|
A094614
|
|
Fundamental discriminants of real quadratic number fields with class number 5.
|
|
11
|
|
|
401, 817, 1093, 1393, 1429, 1641, 1756, 1897, 1996, 2081, 2153, 2908, 3121, 3181, 3253, 3928, 3997, 4353, 4357, 4441, 4504, 4757, 4889, 5241, 5269, 5308, 5944, 6113, 6157, 6481, 6949, 7064, 7229, 7513, 7817, 7861, 8049, 8108, 8121, 8309, 8501, 8689, 9181, 9229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[9229], NumberFieldDiscriminant@Sqrt[#] == # && NumberFieldClassNumber@Sqrt[#] == 5 &] (* Arkadiusz Wesolowski, Oct 22 2012 *)
|
|
PROG
|
(PARI) {ok(n) = n>10 && isfundamental(n) && qfbclassno(n)==5};
for(n=1, 10000, if(ok(n)==1, print1(n, ", "))) \\ G. C. Greubel, Mar 01 2019
(Sage)
is_fund_and_qfbcn_1 = lambda n: is_fundamental_discriminant(n) and QuadraticField(n, 'a').class_number() == 5;
A094614 = lambda n: filter(is_fund_and_qfbcn_1, (1, 2, .., n));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|