cp's OEIS Frontend

A014602 Discriminants of imaginary quadratic fields with class number 1 (negated).

%I A014602 #41 Feb 16 2025 08:32:33
%S A014602 3,4,7,8,11,19,43,67,163
%N A014602 Discriminants of imaginary quadratic fields with class number 1 (negated).
%C A014602 Only fundamental discriminants are listed. The non-fundamental discriminants -12, -16, -27, and -28 also have class number 1 (and there are no others). - _Andrew V. Sutherland_, Apr 19 2009
%D A014602 H. Cohen, Course in Computational Alg. No. Theory, Springer, 1993, p. 229.
%D A014602 D. A. Cox, Primes of the form x^2+ny^2, Wiley, p. 271.
%D A014602 J. H. Silverman, Advanced Topics in the Arithmetic of Elliptic Curves, Springer, see p. 483.
%H A014602 A. Abatzoglou, A. Silverberg, A. V. Sutherland, and A. Wong, <a href="http://arxiv.org/abs/1404.0107">A framework for deterministic primality proving using elliptic curves with complex multiplication</a>, arXiv preprint arXiv:1404.0107 [math.NT], 2014.
%H A014602 Giacomo Cherubini and Alessandro Fazzari, <a href="https://arxiv.org/abs/2206.08282">Hyperbolic angles from Heegner points</a>, arXiv:2206.08282 [math.NT], 2022. Mentions this sequence.
%H A014602 Charles Delorme and Guillermo Pineda-Villavicencio, <a href="https://www.emis.de/journals/JIS/VOL18/Pineda/pin2.html">Quadratic Form Representations via Generalized Continuants</a>, Journal of Integer Sequences, Vol. 18 (2015), Article 15.6.4.
%H A014602 Erich Kaltofen and Heinrich Rolletschek, <a href="https://doi.org/10.1090/S0025-5718-1989-0982367-2">Computing greatest common divisors and factorizations in quadratic number fields</a>, Mathematics of Computation 53.188 (1989): 697-720. See page 698.
%H A014602 Rick L. Shepherd, <a href="http://libres.uncg.edu/ir/uncg/f/Shepherd_uncg_0154M_11099.pdf">Binary quadratic forms and genus theory</a>, Master of Arts Thesis, University of North Carolina at Greensboro, 2013.
%H A014602 Carl Ludwig Siegel, <a href="http://gdz.sub.uni-goettingen.de/dms/resolveppn/?PPN=GDZPPN002087030">Zum Beweise des Starkschen Satzes</a>, Inventiones mathematicae 5.3 (1968): 180-191.
%H A014602 Harold M. Stark, <a href="https://doi.org/10.1307/mmj/1028999653">A complete determination of the complex quadratic fields of class-number one</a>, The Michigan Mathematical Journal 14.1 (1967): 1-27.
%H A014602 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ClassNumber.html">Class Number</a>
%H A014602 <a href="/index/Qua#quadfield">Index entries for sequences related to quadratic fields</a>
%t A014602 Union[ (-NumberFieldDiscriminant[ Sqrt[-#]] &) /@ Select[ Range[200], NumberFieldClassNumber[ Sqrt[-#]] == 1 &]] (* _Jean-François Alcover_, Jan 04 2012 *)
%o A014602 (PARI) is(n)=isfundamental(-n) && qfbclassno(-n)==1 \\ _Charles R Greathouse IV_, Nov 20 2012
%o A014602 (Sage)
%o A014602 is_fund_and_qfbcn_1 = lambda n: is_fundamental_discriminant(n) and QuadraticField(n, 'a').class_number() == 1
%o A014602 A014602 = lambda n: filter(is_fund_and_qfbcn_1, (-1,-2,..-n))
%o A014602 [-n for n in A014602(270)] # _Peter Luschny_, Aug 10 2014
%Y A014602 Cf. A003656 (real case), A003173, A013658, A014603, A046002...A046020.
%K A014602 nonn,fini,full,nice
%O A014602 1,1
%A A014602 Eric Rains (rains(AT)caltech.edu)