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.

Showing 1-3 of 3 results.

A317992 2-rank of the narrow class group of real quadratic field Q(sqrt(k)), k squarefree > 1.

Original entry on oeis.org

0, 1, 0, 1, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 1, 1, 0, 2, 1, 1, 1, 2, 0, 1, 2, 0, 2, 1, 1, 1, 2, 0, 2, 1, 1, 1, 0, 1, 1, 2, 1, 1, 2, 1, 0, 1, 1, 2, 1, 1, 1, 1, 1, 2, 0, 2, 1, 1, 2, 0, 0, 2, 1, 2, 1, 1, 0, 2, 2, 0, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 0, 2, 1, 1, 1
Offset: 2

Views

Author

Jianing Song, Oct 03 2018

Keywords

Comments

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 narrow class group of Q(sqrt(k)) or the form class group of indefinite binary quadratic forms with discriminant k, and #{x belongs to G : x^p = 1} is the number of genera of Q(sqrt(k)) (cf. A317990).
This is the analog of A319662 for real quadratic fields.

Crossrefs

Programs

  • PARI
    for(n=2, 200, if(issquarefree(n), print1(omega(n*if(n%4>1, 4, 1)) - 1, ", ")))

Formula

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

Extensions

Offset corrected by Jianing Song, Mar 31 2019

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

Views

Author

Jianing Song, Oct 03 2018

Keywords

Comments

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.

Crossrefs

Programs

  • Mathematica
    2^(PrimeNu[Select[Range[2, 300], NumberFieldDiscriminant[Sqrt[#]]==#&]] - 1) (* Jean-François Alcover, Jul 25 2019 *)
  • PARI
    for(n=2, 1000, if(isfundamental(n), print1(2^(omega(n) - 1), ", ")))
    
  • PARI
    for(n=2, 1000, if(isfundamental(n), print1(2^#select(t->t%2==0, quadclassunit(n).cyc), ", ")))
    
  • Sage
    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

Formula

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

Extensions

Offset corrected by Jianing Song, Mar 31 2019

A338947 Number of vertices of a hexagonal tessellation that lie on subsequent circles centered at a vertex of one hexagon.

Original entry on oeis.org

1, 3, 6, 3, 6, 6, 6, 6, 3, 6, 12, 3, 6, 6, 6, 6, 6, 12, 6, 6, 9, 6, 12, 6, 12, 3, 6, 6, 6, 6, 6, 6, 12, 12, 12, 6, 3, 6, 6, 6, 12, 6, 12, 3, 6, 6, 12, 12, 6, 6, 18, 6, 6, 12, 6, 6, 9, 12, 6, 6, 6, 12, 12, 6, 6, 9, 6, 12, 6, 6, 12, 12, 6, 6, 12, 6, 12, 6, 6, 6, 12, 12, 3, 12, 6, 6, 24, 6, 12, 6, 3, 12, 6, 6, 12, 6, 6, 12
Offset: 0

Views

Author

Szymon Lukaszyk, Nov 17 2020

Keywords

Comments

Radii of these circles are square roots of A003136.
This is A113062 with zeros dropped. - Andrey Zabolotskiy, Jun 21 2022

Crossrefs

Cf. A003136, A113062; A338992 (similar but with circles centered at the center of one hexagon); A104888, A106030, A317990 (terms multiplied by 3 in agreement for up to 17 term).

Extensions

a(0) changed from 0 to 1 by Andrey Zabolotskiy, Jun 21 2022
Showing 1-3 of 3 results.