A003640 -id:A003640 - cp's OEIS frontend

A003643 Number of genera of Q(sqrt(-n)), n squarefree.

1, 1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 4, 2, 1, 2, 2, 4, 1, 4, 2, 2, 2, 2, 2, 2, 4, 1, 2, 1, 2, 2, 2, 4, 2, 1, 2, 2, 4, 4, 1, 4, 4, 1, 2, 2, 4, 4, 1, 2, 1, 4, 2, 2, 2, 2, 4, 2, 2, 2, 2, 4, 1, 8, 2, 1, 2, 4, 2, 2, 4, 2, 2, 2, 2, 2, 1, 4, 4, 1, 4, 2, 2, 4, 1, 4, 2, 2, 4, 2, 2, 1, 4, 2, 2, 2, 2, 4, 1, 8, 2, 1, 4, 2

Offset: 1

N. J. A. Sloane, Mira Bernstein

D. A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 224-241.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Andrew Howroyd, Table of n, a(n) for n = 1..1000
Index entries for sequences related to quadratic fields

Cf. A000924, A001221 (omega), A005117, A033197, A003640.

Function[If[Mod[#, 4] == 1, 2^PrimeOmega[#], 2^(PrimeOmega[#] - 1)]] /@ Select[Range[200], SquareFreeQ] (* Jean-François Alcover, Sep 04 2019 *)

for(n=1, 200, if(issquarefree(n), print1(2^(omega(n*if((-n)%4>1, 4, 1)) - 1), ", "))) \\ Andrew Howroyd, Jul 24 2018

a(n) = 2^(omega(A033197(n)) - 1). - Andrew Howroyd, Jul 24 2018

Let k = A005117(n) be the n-th squarefree number, then a(n) = 2^omega(k) if k == 1 (mod 4) and 2^(omega(k) - 1) otherwise. - Jianing Song, Jul 25 2018

A319659 2-rank of the class group of imaginary quadratic field with discriminant -k, k = A003657(n).

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 2, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 2, 1, 0, 0, 2, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 2, 0, 1, 1, 1, 0, 2, 0, 1, 0, 1, 1, 1, 0, 0, 2, 2, 1, 1, 0, 1, 1, 1, 0, 2, 1, 2, 0, 2, 1, 0, 2, 2

Offset: 1

Jianing Song, Sep 25 2018

nonn

The p-rank of a finite abelian group G is equal to log_p(#{x belongs to G : x^p = 1}) where p is a prime number. In this case, G is the class group of Q(sqrt(-k)), and #{x belongs to G : x^p = 1} is the number of genera of Q(sqrt(-k)) (cf. A003640).

Rick L. Shepherd, Binary quadratic forms and genus theory, Master of Arts Thesis, University of North Carolina at Greensboro, 2013.

Cf. A003640, A003657, A319660, A319661, A319662.

Real discriminant case: A317991.

for(n=1, 1000, if(isfundamental(-n), print1(omega(n) - 1, ", ")))

a(n) = log_2(A003640(n)) = omega(A003657(n)) - 1, where omega(k) is the number of distinct prime divisors of k.

A003641 Number of genera of imaginary quadratic field with discriminant -k, k = A039957(n).

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 2, 2, 1, 4, 1, 2, 1, 2, 2, 1, 1, 4, 2, 1, 2, 1, 4, 2, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 4, 2, 2, 2, 2, 1, 2, 1, 4, 1, 1, 2, 2, 4, 1, 1, 2, 1, 4, 1, 1, 1, 1, 2

Offset: 1

N. J. A. Sloane, Mira Bernstein

nonn

In other words, this is the number of genera of those imaginary quadratic fields that have a discriminant which is odd and fundamental. The discriminant will be squarefree and of the form -4n+1. - Andrew Howroyd, Jul 25 2018

			a(4) = 2 because -15 = -A039957(4) and the number of genera of the quadratic field with discriminant -15 is 2. - _Andrew Howroyd_, Jul 25 2018

D. A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 224-241.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Index entries for sequences related to quadratic fields

Cf. A001221 (omega), A003640, A003642, A039957.

2^(PrimeNu[Select[Range[1000], Mod[#, 4] == 3 && SquareFreeQ[#]&]] - 1) (* Jean-François Alcover, Jul 25 2019, after Andrew Howroyd *)

for(n=1, 1000, if(n%4==3 && issquarefree(n), print1(2^(omega(n) - 1), ", "))) \\ Andrew Howroyd, Jul 24 2018

a(n) = 2^(omega(A039957(n)) - 1). - Jianing Song, Jul 24 2018

Name clarified by Jianing Song, Jul 24 2018

A003642 Number of genera of imaginary quadratic field with discriminant -k, k = A191483(n).

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 4, 4, 2, 2, 2, 2, 4, 2, 2, 4, 2, 2, 2, 4, 4, 4, 4, 2, 2, 4, 4, 2, 4, 2, 2, 4, 2, 2, 2, 4, 8, 2, 2, 4, 2, 4, 2, 2, 4, 4, 4, 2, 2, 4, 4, 2, 4, 2, 2, 4, 2, 2, 4, 8, 2, 4, 2, 4, 4, 2, 2, 4, 4, 4, 4, 2, 2, 2, 4, 2, 4, 2, 4, 8, 4, 2, 4, 2, 4, 4, 2, 2, 4, 2, 4, 4, 2, 4, 4, 4, 2, 2, 4

Offset: 1

N. J. A. Sloane, Mira Bernstein

nonn

D. A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 224-241.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Index entries for sequences related to quadratic fields

Cf. A001221 (omega), A003640, A003641, A191483.

2^(PrimeNu[Select[Range[1000], Mod[#, 4] == 0 && SquareFreeQ[#/4] && Mod[#, 16] != 12&]] - 1) (* Jean-François Alcover, Jul 25 2019, after Andrew Howroyd in A191483 *)

for(n=1, 1000, if(isfundamental(-n) && n%2==0, print1(2^(omega(n) - 1), ", "))) \\ Andrew Howroyd, Jul 24 2018

a(n) = 2^(omega(A191483(n)) - 1). - Jianing Song, Jul 24 2018

Name clarified by Jianing Song, Jul 24 2018

A317989 Number of genera of real quadratic field with discriminant A003658(n), n >= 2.

Original entry on oeis.org

1, 1, 2, 1, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 4, 1, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 1, 2, 4, 1, 1, 4, 2, 2, 2, 2, 1, 4, 2, 2, 1, 2, 4, 1, 2, 4, 4, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 4, 2, 2, 2, 2, 4, 2, 1, 2, 1, 2, 2, 1, 2, 2, 2, 1, 4, 2, 2, 1, 4, 1, 4, 1, 2

Offset: 2

Jianing Song, Oct 03 2018

nonn

The number of genera of a quadratic field is equal to the number of elements x in the class group such that x^2 = e where e is the identity.

This is the analog of A003640 for real quadratic fields. Note that for this case "the class group" refers to the narrow class group, or the form class group of indefinite binary quadratic forms with discriminant k.

Rick L. Shepherd, Binary quadratic forms and genus theory, Master of Arts Thesis, University of North Carolina at Greensboro, 2013.

Cf. A003640, A003658, A087048, A317990, A317991.

2^(PrimeNu[Select[Range[2, 300], NumberFieldDiscriminant[Sqrt[#]]==#&]] - 1) (* Jean-François Alcover, Jul 25 2019 *)

for(n=2, 1000, if(isfundamental(n), print1(2^(omega(n) - 1), ", ")))

for(n=2, 1000, if(isfundamental(n), print1(2^#select(t->t%2==0, quadclassunit(n).cyc), ", ")))

def A317989_list(len):
    L = (sloane.A001221(n) for n in (1..len) if is_fundamental_discriminant(n))
    return [2^(l-1) for l in L]
A317989_list(290) # Peter Luschny, Oct 15 2018

a(n) = 2^(omega(A003658(n)-1)) = 2^A317991(n), where omega(k) is the number of distinct prime divisors of k.

Offset corrected by Jianing Song, Mar 31 2019

cp's OEIS Frontend

A003643 Number of genera of Q(sqrt(-n)), n squarefree.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A319659 2-rank of the class group of imaginary quadratic field with discriminant -k, k = A003657(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A003641 Number of genera of imaginary quadratic field with discriminant -k, k = A039957(n).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A003642 Number of genera of imaginary quadratic field with discriminant -k, k = A191483(n).

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A317989 Number of genera of real quadratic field with discriminant A003658(n), n >= 2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Sage

Formula

Extensions