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.

Previous Showing 21-30 of 45 results. Next

A048925 Discriminants of imaginary quadratic fields with class number 24 (negated).

Original entry on oeis.org

695, 759, 1191, 1316, 1351, 1407, 1615, 1704, 1736, 1743, 1988, 2168, 2184, 2219, 2372, 2408, 2479, 2660, 2696, 2820, 2824, 2852, 2856, 2915, 2964, 3059, 3064, 3127, 3128, 3444, 3540, 3560, 3604, 3620, 3720, 3864, 3876, 3891, 3899, 3912
Offset: 0

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 4000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 24, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
  • Sage
    ls = [(QuadraticField(-n, 'a').discriminant(),QuadraticField(-n, 'a').class_number()) for n in (0..10000) if is_fundamental_discriminant(-n) and not is_square(n)];
    [-a[0] for a in ls if a[1] == 24] # Andy Huchala, Feb 15 2022

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

A046007 Discriminants of imaginary quadratic fields with class number 10 (negated).

Original entry on oeis.org

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
Offset: 1

Views

Author

Keywords

Comments

87 discriminants in this sequence (almost certainly but not proved).

Crossrefs

Programs

  • Mathematica
    Union[(-NumberFieldDiscriminant[Sqrt[-#]] &) /@ Select[Range[14000], NumberFieldClassNumber[Sqrt[-#]] == 10 &]] (* Jean-François Alcover, Jun 27 2012 *)
  • 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

A046009 Discriminants of imaginary quadratic fields with class number 12 (negated).

Original entry on oeis.org

231, 255, 327, 356, 440, 516, 543, 655, 680, 687, 696, 728, 731, 744, 755, 804, 888, 932, 948, 964, 984, 996, 1011, 1067, 1096, 1144, 1208, 1235, 1236, 1255, 1272, 1336, 1355, 1371, 1419, 1464, 1480, 1491, 1515, 1547, 1572, 1668, 1720, 1732
Offset: 1

Views

Author

Keywords

Comments

206 discriminants in this sequence (almost certainly but not proved).

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 2000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 12, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
  • PARI
    ok(n)={isfundamental(-n) && qfbclassno(-n) == 12} \\ Andrew Howroyd, Jul 24 2018
    
  • Sage
    [n for n in (1..3000) if is_fundamental_discriminant(-n) and QuadraticField(-n, 'a').class_number()==12] # G. C. Greubel, Mar 01 2019

A046011 Discriminants of imaginary quadratic fields with class number 14 (negated).

Original entry on oeis.org

215, 287, 391, 404, 447, 511, 535, 536, 596, 692, 703, 807, 899, 1112, 1211, 1396, 1403, 1527, 1816, 1851, 1883, 2008, 2123, 2147, 2171, 2335, 2427, 2507, 2536, 2571, 2612, 2779, 2931, 2932, 3112, 3227, 3352, 3579, 3707, 3715, 3867, 3988
Offset: 1

Views

Author

Keywords

Comments

There are 95 discriminants in this sequence (almost certainly but not proved).

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 4000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 14, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
  • PARI
    ok(n)={isfundamental(-n) && qfbclassno(-n) == 14} \\ Andrew Howroyd, Jul 24 2018

A046013 Discriminants of imaginary quadratic fields with class number 16 (negated).

Original entry on oeis.org

399, 407, 471, 559, 584, 644, 663, 740, 799, 884, 895, 903, 943, 1015, 1016, 1023, 1028, 1047, 1139, 1140, 1159, 1220, 1379, 1412, 1416, 1508, 1560, 1595, 1608, 1624, 1636, 1640, 1716, 1860, 1876, 1924, 1983, 2004, 2019, 2040, 2056, 2072
Offset: 1

Views

Author

Keywords

Comments

322 discriminants in this sequence (almost certainly but not proved).

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 3000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 16, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)
  • PARI
    ok(n)={isfundamental(-n) && qfbclassno(-n) == 16} \\ Andrew Howroyd, Jul 24 2018

A046015 Discriminants of imaginary quadratic fields with class number 18 (negated).

Original entry on oeis.org

335, 519, 527, 679, 1135, 1172, 1207, 1383, 1448, 1687, 1691, 1927, 2047, 2051, 2167, 2228, 2291, 2315, 2344, 2644, 2747, 2859, 3035, 3107, 3543, 3544, 3651, 3688, 4072, 4299, 4307, 4568, 4819, 4883, 5224, 5315, 5464, 5492, 5539, 5899
Offset: 1

Views

Author

Keywords

Comments

The class group of Q[sqrt(-d)] is isomorphic to C_3 X C_6 for d = 9748, 12067, 16627, 17131, 19651, 22443, 23683, 34027, 34507. For all other known d in this sequence, the class group of Q[sqrt(-d)] is isomorphic to C_18. - Jianing Song, Dec 01 2019

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 6000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 18, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)

A123563 Discriminants of imaginary quadratic fields with class number 20 (negated).

Original entry on oeis.org

455, 615, 776, 824, 836, 920, 1064, 1124, 1160, 1263, 1284, 1460, 1495, 1524, 1544, 1592, 1604, 1652, 1695, 1739, 1748, 1796, 1880, 1887, 1896, 1928, 1940, 1956, 2136, 2247, 2360, 2404, 2407, 2483, 2487, 2532, 2552
Offset: 1

Views

Author

Eric W. Weisstein, Nov 19 2006

Keywords

Comments

A finite sequence with exactly 350 terms.

Crossrefs

Programs

  • Mathematica
    Reap[ For[n = 1, n < 3000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 20, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* Jean-François Alcover, Oct 05 2012 *)

A305416 Negated discriminants of imaginary quadratic number fields whose class group is isomorphic to the Klein 8-group, C_2 x C_2 x C_2.

Original entry on oeis.org

420, 660, 840, 1092, 1155, 1320, 1380, 1428, 1540, 1848, 1995, 3003, 3315
Offset: 1

Views

Author

Vincenzo Librandi, Jun 12 2018

Keywords

Comments

Intersection of A046005 and A003644. Note that A003644 = A014602 union A014603 union A192322 union {a(n)} union {5460}. - Jianing Song, Jul 12 2018

Crossrefs

Subsequence of A046005 and A003644.

Programs

A316743 Discriminants of imaginary fields whose class group has exponent 2, negated.

Original entry on oeis.org

15, 20, 24, 35, 40, 51, 52, 84, 88, 91, 115, 120, 123, 132, 148, 168, 187, 195, 228, 232, 235, 267, 280, 312, 340, 372, 403, 408, 420, 427, 435, 483, 520, 532, 555, 595, 627, 660, 708, 715, 760, 795, 840, 1012, 1092, 1155, 1320, 1380, 1428, 1435, 1540, 1848, 1995, 2280, 3003, 3315, 5460
Offset: 1

Views

Author

Jianing Song, Jul 20 2018

Keywords

Comments

This sequence lists the negated discriminants of imaginary fields whose class group is isomorphic to (C_2)^r, r > 0.
These are the negated fundamental discriminants in A133288.
Also numbers in A003644 but not in A014602. Equals A014603 union A192322 union A305416 union {5460}.

Crossrefs

Cf. Negated discriminants of imaginary fields whose class group is isomorphic to (C_2)^r: A014602 (r=0), A014603 (r=1), A192322 (r=2), A305416 (r=3).
Subsequence of A003644 and A133288.

Programs

  • PARI
    ok(n)={isfundamental(-n) && quadclassunit(-n).no > 1 && !#select(k->k<>2, quadclassunit(-n).cyc)} \\ Andrew Howroyd, Jul 20 2018
Previous Showing 21-30 of 45 results. Next