login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046125 Number of negative fundamental discriminants having class number n. 21
9, 18, 16, 54, 25, 51, 31, 131, 34, 87, 41, 206, 37, 95, 68, 322, 45, 150, 47, 350, 85, 139, 68, 511, 95, 190, 93, 457, 83, 255, 73, 708, 101, 219, 103, 668, 85, 237, 115, 912, 109, 339, 106, 691, 154, 268, 107, 1365, 132, 345, 159, 770, 114, 427, 163, 1205, 179, 291 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Andy Huchala, Table of n, a(n) for n = 1..100 (from Watkins' paper)
Duncan A. Buell, Small class numbers and extreme values of L-functions of quadratic fields, Math. Comp., 31 (1977), 786-796.
M. Watkins, Class numbers of imaginary quadratic fields, Mathematics of Computation 73 (2004), pp. 907-938.
Eric Weisstein's World of Mathematics, Class Number
EXAMPLE
a(1) = 9 because the discriminants {-3,-4,-7,-8,-11,-19,-43,-67,-163} are the only ones with class number 1.
MATHEMATICA
FundamentalDiscriminantQ[n_] := n != 1 && (Mod[n, 4] == 1 || ! Unequal[ Mod[n, 16], 8, 12]) && SquareFreeQ[n/2^IntegerExponent[n, 2]] (* via Eric E. Weisstein *);
k = 1; t = Table[0, {125}]; While[k < 2000001, If[ FundamentalDiscriminantQ@ -k, a = NumberFieldClassNumber@ Sqrt@ -k; If[a < 126, t[[a]]++]]; k++]; t (* Robert G. Wilson v Jun 01 2011 *)
PROG
(PARI) lista(nn=10^7) = {my(NMAX=100, v = vector(NMAX), c); for (k=1, nn, if (isfundamental(-k), if ((c = qfbclassno(-k)) <= NMAX, v[c] ++); ); ); v; } \\ Michel Marcus, Feb 17 2022
CROSSREFS
Cf. A038552.
Sequence in context: A109050 A103700 A158623 * A040072 A034728 A129855
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
Edited by Robert G. Wilson v, May 13 2003
Corrected and extended by Dean Hickerson, May 20 2003. The values were obtained by transcribing and combining data from Tables 1-3 of Buell's paper, which has information for all values of n up to 125.
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 03:33 EDT 2024. Contains 370952 sequences. (Running on oeis4.)