cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A046003 Discriminants of imaginary quadratic fields with class number 6 (negated).

Original entry on oeis.org

87, 104, 116, 152, 212, 244, 247, 339, 411, 424, 436, 451, 472, 515, 628, 707, 771, 808, 835, 843, 856, 1048, 1059, 1099, 1108, 1147, 1192, 1203, 1219, 1267, 1315, 1347, 1363, 1432, 1563, 1588, 1603, 1843, 1915, 1963, 2227, 2283, 2443, 2515, 2563, 2787, 2923, 3235, 3427, 3523, 3763
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Union[(-NumberFieldDiscriminant[Sqrt[-#]] &) /@ Select[Range[3800], NumberFieldClassNumber[Sqrt[-#]] == 6 &]] (* Jean-François Alcover, Jun 27 2012 *)
  • PARI
    ok(n)={isfundamental(-n) && quadclassunit(-n).no == 6};
    for(n=1, 4000, if(ok(n)==1, print1(n, ", "))) \\ G. C. Greubel, Mar 01 2019
    
  • Sage
    [n for n in (1..4000) if is_fundamental_discriminant(-n) and QuadraticField(-n, 'a').class_number()==6] # G. C. Greubel, Mar 01 2019

Extensions

More terms from Seiichi Manyama, Jun 03 2018