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-6 of 6 results.

A242878 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3) and Hilbert 3-class field tower of exact length 3, except for the cases mentioned in the COMMENTS.

Original entry on oeis.org

9748, 15544, 16627, 17131, 18555, 21668, 22395, 22443, 23683, 24884, 27640, 28279, 31271, 34027, 34867, 35539, 37988, 39736, 42619, 42859, 43847, 45887, 48472, 48667, 50983, 51348, 53843, 54319, 58920, 60196, 60895
Offset: 1

Views

Author

Keywords

Comments

CAVEAT: Up to 10^5, the length of the 3-tower is unknown for the following discriminants: 17131, 21668, 24884, 28279, 34027, 35539, 64952, 65203, 72591, 92660, 92827. The performance of the MAGMA script in section PROG would be much slower, if the class number of the first Hilbert 3-class field were computed. This would admit a criterion for the exclusion of the mentioned exceptional discriminants. Therefore, including the superfluous brushwood was the lesser of two evils.

Examples

			The case 9748 (n=1) was discussed very thoroughly by Scholz and Taussky in 1934. However, this is the famous case where they erroneously claimed that the 3-tower has exactly two stages. Brink and Gold had doubts about this claim but were unable to exclude it definitely in 1987. Bush and Mayer were the first who succeeded in disproving this claim rigorously in 2012.
		

Crossrefs

Cf. A242862, A242863 (supersequences), and A242864, A242873 (disjoint sequences).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; p := 0; e := 0; for j in [1..#sO] do CO := ClassGroup(sO[j]); if (3 eq Valuation(#CO, 3)) then if ([3, 3, 3] eq pPrimaryInvariants(CO, 3)) then e := e+1; end if; else p := p+1; end if; end for; if (1 eq p) and ((0 eq e) or (1 eq e)) then d, ", "; end if; end if; end if; end for;

A242873 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3), 3-principalization type (4443), IPAD [(3,3,3)^3, (3,9)], and Hilbert 3-class field tower of unknown length at least 3.

Original entry on oeis.org

3896, 6583, 23428, 25447, 27355, 27991, 36276, 37219, 37540, 39819, 41063
Offset: 1

Views

Author

Keywords

Comments

For all these discriminants, the metabelianization of the 3-tower group is the unbalanced group SmallGroup(729,45), whence it is completely open whether the tower must terminate at a finite stage or not. Consequently, these discriminants are among the foremost challenges of future research.
These fields are characterized either by their 3-principalization type (transfer kernel type, TKT) (4443), H.4, or equivalently by their transfer target type (TTT) [(3,3,3)^3, (3,9)] (called IPAD by Boston, Bush, Hajir). The latter is used in the MAGMA PROG. The TKT (4443) is not a permutation, contains a transposition, and has no fixed point. - Daniel Constantin Mayer, Sep 22 2014

Examples

			Already the smallest term 3896 resists all attempts to determine the length of its Hilbert 3-class field tower.
		

References

  • D. C. Mayer, The distribution of second p-class groups on coclass graphs, J. Théor. Nombres Bordeaux 25 (2) (2013), 401-456.

Crossrefs

Cf. A242862, A242863 (supersequences), and A242864, A242878 (disjoint sequences).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C,mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; g := true; e := 0; for j in [1..#sO] do CO := ClassGroup(sO[j]); if (3 eq Valuation(#CO, 3)) then if ([3, 3, 3] eq pPrimaryInvariants(CO, 3)) then e := e+1; end if; else g := false; end if; end for; if (true eq g) and (3 eq e) then d, ", "; end if; end if; end if; end for;

Extensions

Definition completed by Daniel Constantin Mayer, Sep 22 2014

A247688 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3), 3-principalization type (2143), IPAD [(3,9)^4], and Hilbert 3-class field tower of unknown length at least 3.

Original entry on oeis.org

12067, 49924, 54195, 60099, 83395, 86551, 91643, 93067, 96551
Offset: 1

Views

Author

Keywords

Comments

These fields are characterized either by their 3-principalization type (transfer kernel type, TKT) (2143), G.19, or equivalently by their transfer target type (TTT) [(3,9)^4] (called IPAD by Boston, Bush, Hajir). The latter is used in the MAGMA PROG. The TKT (2143) is a permutation composed of two disjoint transpositions without fixed point.
For all these discriminants, the metabelianization of the 3-tower group is the unbalanced group SmallGroup(729, 57), whence it is completely open whether the tower must terminate at a finite stage or not. Consequently, these discriminants are among the foremost challenges of future research.
12067 has been discovered by Heider and Schmithals.

Examples

			Already the smallest term 12067 resists all attempts to determine the length of its Hilbert 3-class field tower.
		

References

  • F.-P. Heider, B. Schmithals, Zur Kapitulation der Idealklassen in unverzweigten primzyklischen Erweiterungen, J. reine angew. Math. 336 (1982), 1 - 25.
  • D. C. Mayer, The distribution of second p-class groups on coclass graphs, J. Théor. Nombres Bordeaux 25 (2) (2013), 401-456.

Crossrefs

Cf. A242862, A242863 (supersequences), and A242864, A242873 (disjoint sequences).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; g := true; e := 0; for j in [1..#sO] do CO := ClassGroup(sO[j]); if (3 eq Valuation(#CO, 3)) then if ([3, 3, 3] eq pPrimaryInvariants(CO, 3)) then e := e+1; end if; else g := false; end if; end for; if (true eq g) and (0 eq e) then d, ", "; end if; end if; end if; end for;

A247689 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3) and 3-principalization type (2241).

Original entry on oeis.org

4027, 8751, 19651, 21224, 22711, 24904, 26139, 28031, 28759, 34088, 36807, 40299, 40692, 41015, 42423, 43192, 44004, 45835, 46587, 48052, 49128, 49812, 50739, 50855, 51995, 55247, 55271, 55623, 70244, 72435, 77144, 78708, 81867, 85199, 87503, 87727, 88447, 91471, 91860, 92712, 94420, 95155, 97555, 98795, 99707, 99939
Offset: 1

Views

Author

Keywords

Comments

These fields are characterized either by their 3-principalization type (transfer kernel type, TKT) (2241), D.10, or equivalently by their transfer target type (TTT) [(3,3,3), (3,9)^3] (called IPAD by Boston, Bush, Hajir). The latter is used in the MAGMA PROG, which essentially constitutes the principalization algorithm via class group structure. The TKT (2241) has a single fixed point and is not a permutation.
For all these discriminants, the 3-tower group is the metabelian Schur sigma-group SmallGroup(243, 5) and the Hilbert 3-class field tower terminates at the second stage.
4027 is discussed very thoroughly by Scholz and Taussky.

Crossrefs

Cf. A242862, A242863, A242864 (supersequences), and A247690, A242873 (disjoint sequences).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; g := true; e := 0; for j in [1..#sO] do CO := ClassGroup(sO[j]); if (3 eq Valuation(#CO, 3)) then if ([3, 3, 3] eq pPrimaryInvariants(CO, 3)) then e := e+1; end if; else g := false; end if; end for; if (true eq g) and (1 eq e) then d, ", "; end if; end if; end if; end for;

A247690 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3) and 3-principalization type (4224).

Original entry on oeis.org

12131, 19187, 20276, 20568, 24340, 26760, 31639, 31999, 32968, 34507, 35367, 41583, 41671, 43307, 57079, 64196, 73731, 85796, 87720, 93823, 95691
Offset: 1

Views

Author

Keywords

Comments

These fields are characterized either by their 3-principalization type (transfer kernel type, TKT) (4224), D.5, or equivalently by their transfer target type (TTT) [(3,3,3)^2, (3,9)^2] (called IPAD by Boston, Bush, Hajir). The latter is used in the MAGMA PROG, which essentially constitutes the principalization algorithm via class group structure. The TKT (4224) has two fixed points and is not a permutation.
For all these discriminants, the 3-tower group is the metabelian Schur sigma-group SmallGroup(243, 7) and the Hilbert 3-class field tower terminates at the second stage.
12131 has been discovered by Heider and Schmithals.

References

  • F.-P. Heider, B. Schmithals, Zur Kapitulation der Idealklassen in unverzweigten primzyklischen Erweiterungen, J. reine angew. Math. 336 (1982), 1 - 25.
  • D. C. Mayer, "The distribution of second p-class groups on coclass graphs", J. Théor. Nombres Bordeaux 25 (2) (2013), 401-456.

Crossrefs

Cf. A242862, A242863, A242864 (supersequences), and A247689, A242873 (disjoint sequences).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; g := true; e := 0; for j in [1..#sO] do CO := ClassGroup(sO[j]); if (3 eq Valuation(#CO, 3)) then if ([3, 3, 3] eq pPrimaryInvariants(CO, 3)) then e := e+1; end if; else g := false; end if; end for; if (true eq g) and (2 eq e) then d, ", "; end if; end if; end if; end for;

A247691 Absolute discriminants of complex quadratic fields with 3-class group of type (3,3) whose second 3-class group is located on the sporadic part of the coclass graph G(3,2) outside of coclass trees.

Original entry on oeis.org

3896, 4027, 6583, 8751, 12067, 12131, 19187, 19651, 20276, 20568, 21224, 22711, 23428, 24340, 24904, 25447, 26139, 26760, 27355, 27991, 28031, 28759, 31639, 31999, 32968, 34088, 34507, 35367, 36276, 36807, 37219, 37540, 39819, 40299, 40692, 41015, 41063, 41583, 41671, 42423, 43192
Offset: 1

Views

Author

Keywords

Comments

These fields are characterized either by their 3-principalization types (transfer kernel types, TKTs) (2143), G.19, (2241), D.10, (4224), D.5, (4443), H.4, or equivalently by their transfer target types (TTTs) [(3,9)^4], [(3,3,3), (3,9)^3], [(3,3,3)^2, (3,9)^2], [(3,3,3)^3, (3,9)] (called IPADs by Boston, Bush, Hajir). The latter are used in the MAGMA PROG, which essentially constitutes the principalization algorithm via class group structure.

Crossrefs

Cf. A242862, A242863 (supersequences), A242864, A242873, A247688 (subsequences), and A242878 (disjoint sequence).

Programs

  • Magma
    for d := 2 to 10^5 do a := false; if (3 eq d mod 4) and IsSquarefree(d) then a := true; end if; if (0 eq d mod 4) then r := d div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (1 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(-d); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then E := AbelianExtension(mC); sS := Subgroups(C: Quot := [3]); sA := [AbelianExtension(Inverse(mQ)*mC) where Q, mQ := quo: x in sS]; sN := [NumberField(x): x in sA]; sF := [AbsoluteField(x): x in sN]; sM := [MaximalOrder(x): x in sF]; sM := [OptimizedRepresentation(x): x in sF]; sA := [NumberField(DefiningPolynomial(x)): x in sM]; sO := [Simplify(LLL(MaximalOrder(x))): x in sA]; delete sA, sN, sF, sM; g := true; for j in [1..#sO] do CO := ClassGroup(sO[j]); if not (3 eq Valuation(#CO, 3)) then g := false; end if; end for; if (true eq g) then d, ", "; end if; end if; end if; end for;
Showing 1-6 of 6 results.