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-10 of 19 results. Next

A250235 Discriminants of real quadratic fields with cyclic 3-class group (3).

Original entry on oeis.org

229, 257, 316, 321, 469, 473, 568, 697, 733, 761, 785, 892, 940, 985, 993, 1016, 1101, 1229, 1257, 1304, 1345, 1373, 1384, 1436, 1489, 1509, 1708, 1765, 1772, 1901, 1929, 1937, 1957, 2021, 2024, 2089, 2101, 2177, 2213, 2233, 2296, 2429, 2505, 2557, 2589, 2636, 2677, 2713, 2777, 2857, 2917, 2920, 2941, 2981, 2993
Offset: 1

Views

Author

Keywords

Comments

These real quadratic fields have class number divisible by 3 but not divisible by 9. Therefore, this sequence does not contain the discriminant 1129, since the corresponding quadratic field has cyclic 3-class group (9). However, this sequence contains the discriminant 697 whose corresponding quadratic field has class number 6=2*3. Note that 697 is not a member of the sequence A094612, where an exact class number 3 is required.
According to the Artin reciprocity law of class field theory, these real quadratic fields possess a cyclic cubic Hilbert 3-class field as their maximal unramified abelian 3-extension.
According to the Hasse formula d(K)=f^2*d for the discriminant d(K) of a non-Galois totally real cubic field in terms of the conductor f and the associated discriminant d of the real quadratic subfield of the normal closure of K, the sequence A006832 contains all discriminants d of real quadratic fields with class number divisible by 3, since they give rise to a totally real cubic field with conductor f=1 and discriminant d(K)=f^2*d=d. In particular, A006832 contains A250235.

Crossrefs

A094612 is a subsequence, A006832 is a supersequence.

Programs

  • Magma
    for d := 2 to 3000 do a := false; if (1 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 (3 eq r mod 4)) then a := true; end if; end if; if (true eq a) then K := QuadraticField(d); C := ClassGroup(K); if ([3] eq pPrimaryInvariants(C, 3)) then d, ", "; end if; end if; end for;

A343000 Discriminants of cyclic cubic fields.

Original entry on oeis.org

49, 81, 169, 361, 961, 1369, 1849, 3721, 3969, 4489, 5329, 6241, 8281, 9409, 10609, 11881, 13689, 16129, 17689, 19321, 22801, 24649, 26569, 29241, 32761, 37249, 39601, 44521, 47089, 49729, 52441, 58081, 61009, 67081, 73441, 76729, 77841, 80089, 90601, 94249, 97969
Offset: 1

Views

Author

Jianing Song, Apr 02 2021

Keywords

Comments

Square terms in A006832.
Numbers of the form k^2 where A160498(k) >= 2.
Each term k^2 is associated with A343003(k) cyclic cubic fields.
Let D be a discriminant of a cubic field F, then F is a cyclic cubic field if and only if D is a square. For D = k^2, k must be of the form (p_1)*(p_2)*...*(p_t) or 9*(p_1)*(p_2)*...*(p_{t-1}) with distinct primes p_i == 1 (mod 3), in which case there are exactly 2^(t-1) = 2^(omega(k)-1) (cyclic) cubic fields with discriminant D. See Page 17, Theorem 2.7 of the Ka Lun Wong link.

Examples

			49 = 7^2 is a term since it is the discriminant of the cyclic cubic field Q[x]/(x^3 - x^2 + x + 1).
81 = 9^2 is a term since it is the discriminant of the cyclic cubic field Q[x]/(x^3 - 3x - 1).
		

Crossrefs

Discriminants and their square roots of cyclic cubic fields:
At least 1 associated cyclic cubic field: this sequence, A343001.
Exactly 1 associated cyclic cubic field: A343022, A002476 U {9}.
At least 2 associated cyclic cubic fields: A343024, A343025.
Exactly 2 associated cyclic cubic fields: A343002, A343003.

Programs

  • PARI
    isA343000(n) = if(issquare(n)&&n>1, my(k=sqrtint(n), L=factor(k), w=omega(k)); for(i=1, w, if(!((L[i, 1]%3==1 && L[i, 2]==1) || L[i, 1]^L[i, 2] == 9), return(0))); 1)

Formula

a(n) = A343001(n)^2.

A343001 Square roots of discriminants of cyclic cubic fields.

Original entry on oeis.org

7, 9, 13, 19, 31, 37, 43, 61, 63, 67, 73, 79, 91, 97, 103, 109, 117, 127, 133, 139, 151, 157, 163, 171, 181, 193, 199, 211, 217, 223, 229, 241, 247, 259, 271, 277, 279, 283, 301, 307, 313, 331, 333, 337, 349, 367, 373, 379, 387, 397, 403, 409, 421, 427
Offset: 1

Views

Author

Jianing Song, Apr 02 2021

Keywords

Comments

Numbers k such that k^2 is in A006832.
Numbers k such that A160498(k) >= 2.
Each term k is associated with A343003(k) cyclic cubic fields.
Let D be a discriminant of a cubic field F, then F is a cyclic cubic field if and only if D is a square. For D = k^2, k must be of the form (p_1)*(p_2)*...*(p_t) or 9*(p_1)*(p_2)*...*(p_{t-1}) with distinct primes p_i == 1 (mod 3), in which case there are exactly 2^(t-1) = 2^(omega(k)-1) (cyclic) cubic fields with discriminant D. See Page 17, Theorem 2.7 of the Ka Lun Wong link.

Examples

			7 is a term since 7^2 = 49 is the discriminant of the cyclic cubic field Q[x]/(x^3 - x^2 - 2*x + 1).
9 is a term since 9^2 = 81 is the discriminant of the cyclic cubic field Q[x]/(x^3 - 3*x - 1).
		

Crossrefs

Discriminants and their square roots of cyclic cubic fields:
At least 1 associated cyclic cubic field: A343000, this sequence.
Exactly 1 associated cyclic cubic field: A343022, A002476 U {9}.
At least 2 associated cyclic cubic fields: A343024, A343025.
Exactly 2 associated cyclic cubic fields: A343002, A343003.

Programs

  • PARI
    isA343001(n) = my(L=factor(n), w=omega(n)); for(i=1, w, if(!((L[i,1]%3==1 && L[i,2]==1) || L[i,1]^L[i,2] == 9), return(0))); (n>1)

Formula

a(n) = sqrt(A343001(n)).

A343022 Discriminants with exactly 1 associated cyclic cubic field.

Original entry on oeis.org

49, 81, 169, 361, 961, 1369, 1849, 3721, 4489, 5329, 6241, 9409, 10609, 11881, 16129, 19321, 22801, 24649, 26569, 32761, 37249, 39601, 44521, 49729, 52441, 58081, 73441, 76729, 80089, 94249, 97969, 109561, 113569, 121801, 134689, 139129, 143641, 157609, 167281, 177241
Offset: 1

Views

Author

Jianing Song, Apr 02 2021

Keywords

Comments

A cubic field is cyclic if and only if its discriminant is a square. Hence all terms are squares.
Numbers of the form k^2 where A160498(k) = 2.
Numbers of the form k^2 where k is in A002476 U {9}. That is to say, numbers of the form k^2 where k = 9 or is a prime congruent to 1 modulo 3.
In general, there are exactly 2^(t-1) (cyclic) cubic fields with discriminant k^2 if and only if k is of the form (p_1)*(p_2)*...*(p_t) or 9*(p_1)*(p_2)*...*(p_{t-1}) with distinct primes p_i == 1 (mod 3), See A343000 for more detailed information.

Examples

			169 is a term since the one (and only one) cyclic cubic field with that discriminant is Q[x]/(x^3 - x^2 - 4x - 1).
		

Crossrefs

Discriminants and their square roots of cyclic cubic fields:
At least 1 associated cyclic cubic field: A343000, A343001.
Exactly 1 associated cyclic cubic field: this sequence, A002476 U {9}.
At least 2 associated cyclic cubic fields: A343024, A343025.
Exactly 2 associated cyclic cubic fields: A343002, A343003.

Programs

  • PARI
    isA343022(n) = if(issquare(n), my(k=sqrtint(n)); k==9 || (isprime(k) && k%3==1), 0)

Formula

a(n) = A002476(n-1)^2 for n >= 3.

A250237 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and abelian 3-class field tower of length 1.

Original entry on oeis.org

229, 257, 316, 321, 473, 568, 697, 761, 785, 892, 940, 985, 993, 1016, 1229, 1304, 1345, 1384, 1436, 1509, 1765, 1929, 2024, 2089, 2101, 2233, 2296, 2505, 2920, 2993
Offset: 1

Views

Author

Keywords

Comments

This is the beginning of an investigation of the maximal unramified pro-3 extension of complex bicyclic biquadratic fields containing the third roots of unity which have an elementary 3-class group of rank two.
For the discriminants d in A250237, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) is abelian, terminating with the first stage at the Hilbert 3-class field already. An equivalent condition is that the second 3-class group G of K is given by G=SmallGroup(9,2). Another equivalent condition in terms of a fundamental system of units has been given by Yoshida.

Examples

			A250237 covers the dominant part of A250236. The smallest discriminant d in A250236 with non-abelian 3-class field tower of length bigger than 1 is given by d=A250238(1)=469, the initial term of the disjoint sequence A250238.
		

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.

Crossrefs

A006832, A250235, A250236 are supersequences, A250238, A250239, A250240, A250241, A250242 are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 229 to 3000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R,E); C, mC := ClassGroup(K); if ([3,3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]),NumberField(a[2])); else H := Compositum(NumberField(a[1]),NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if (0 eq #pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;

A250238 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and second 3-class group isomorphic to SmallGroup(81,9).

Original entry on oeis.org

469, 1489, 1708, 1937, 2557, 2941, 2981, 3021, 3173, 3305, 3580, 3592, 3736
Offset: 1

Views

Author

Keywords

Comments

For the discriminants d in A250238, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) has exactly two stages and the second 3-class group G of K is given by the metabelian 3-group G=SmallGroup(81,9) with transfer kernel type a.1, (0,0,0,0), transfer target type [(3,9),(3,3)^3] and coclass 1. Actually, this is the ground state on the coclass-1 graph.
The reason the 3-class field tower of K must stop at the second Hilbert 3-class field is Blackburn's Theorem on two-generated 3-groups G whose commutator subgroup G' also has two generators. In fact, the group G=SmallGroup(81,9) has two-generated commutator subgroup G' of type (3,3).

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.

Crossrefs

A006832, A250235, A250236 are supersequences, A250237, A250239, A250240, A250241, A250242 are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 469 to 10000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R, E); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]), NumberField(a[2])); else H := Compositum(NumberField(a[1]), NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if ([3, 3] eq pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;

A250239 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and second 3-class group isomorphic to SmallGroup(729,95).

Original entry on oeis.org

7453, 8905, 9937, 10069, 14089, 15757, 16737, 17889, 18977, 19869, 20329
Offset: 1

Views

Author

Keywords

Comments

For the discriminants d in A250239, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) has exactly two stages and the second 3-class group G of K is given by the metabelian 3-group G=SmallGroup(729,95) with transfer kernel type a.1, (0,0,0,0), transfer target type [(9,27),(3,3)^3] and coclass 1. This is the first excited state on the coclass-1 graph.
The reason the 3-class field tower of K must stop at the second Hilbert 3-class field is Blackburn's Theorem on two-generated 3-groups G whose commutator subgroup G' also has two generators. In fact, the group G=SmallGroup(729,95) has commutator subgroup G'=(9,9), two-generated.

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.

Crossrefs

A006832, A250235, A250236 are supersequences.
A250237, A250238, A250240, A250241, A250242 are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 7453 to 20000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R, E); C, mC := ClassGroup(K); if ([3, 3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]), NumberField(a[2])); else H := Compositum(NumberField(a[1]), NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if ([9, 9] eq pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;

A250240 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and second 3-class group isomorphic to SmallGroup(729,37).

Original entry on oeis.org

2177, 2677, 4841, 6289, 6940, 6997, 8789, 9869, 11324, 17448, 17581, 23192, 23417, 24433, 25741, 26933, 30273, 33765, 34253, 34412, 34968, 35537, 36376, 38037, 38057, 40773, 41224, 42152, 42649, 43176, 43349, 44617, 45529, 47528
Offset: 1

Views

Author

Keywords

Comments

For the discriminants d in A250240, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) has at least three stages and the second 3-class group G of K is given by G=SmallGroup(729,37), which is called the non-CF group A by Ascione, Havas and Leedham-Green. It has many properties (transfer kernel type b.10, (0,0,4,3), and transfer target type [(3,9)^2,(3,3,3)^2]) coinciding with those of SmallGroup(729,34), called the non-CF group H. Both are immediate descendants of SmallGroup(243,3) and can only be distinguished by their commutator subgroup G', which is of type (3,3,9) for A, and (3,3,3,3) for H.
Since the verification of the structure of G' requires computation of the 3-class group of the Hilbert 3-class field of K, which is of absolute degree 36 over Q, the construction of A250240 is extremely tough.
Whereas the metabelian 3-group A is rather well behaved, possessing six terminal immediate descendants only, the notorious group H is famous for giving rise to three infinite coclass trees with non-metabelian mainlines and horrible complexity.
In 66.2 hours of CPU time, Magma computed all 34 discriminants d up to the bound 50000. Starting with d=38057, Magma begins to struggle considerably, since an increasing amount of time (NOT included above) is used for swapping to the hard disk. - Daniel Constantin Mayer, Dec 02 2014
The given Magma PROG works correctly up to 10000. However, for ranges beyond 10000, a complication arises, since the non-CF group B = SmallGroup(729,40) also has a commutator subgroup of type (3,3,9) and must be sifted with the aid of its different transfer target type [(9,9),(3,9),(3,3,3)^2]. Up to 50000, this occurs three times for d in {17609,30941,31516}. - Daniel Constantin Mayer, Dec 05 2014
The group G=SmallGroup(729,37) has p-multiplicator rank m(G)=5. By Theorem 6 of I. R. Shafarevich (with misprint corrected) the relation rank of the 3-class tower group H is bounded by r(H) <= d(H) + r + 1 = 2 + 1 + 1 = 4, where d(H) denotes the generator rank of H and r is the torsionfree unit rank of K. Thus, G with r(G) >= m(G) = 5 cannot be the 3-class tower group of K and the tower must have at least three stages. - Daniel Constantin Mayer, Sep 24 2015

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.
  • I. R. Shafarevich, Extensions with prescribed ramification points, Publ. Math., Inst. Hautes Études Sci. 18 (1964), 71-95 (Russian). English transl. by J. W. S. Cassels: Am. Math. Soc. Transl., II. Ser., 59 (1966), 128-149. - Daniel Constantin Mayer, Sep 24 2015

Crossrefs

A006832, A250235, A250236 are supersequences.
A250237, A250238, A250239,A250241, A250242 are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 2177 to 10000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R,E); C, mC := ClassGroup(K); if ([3,3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]),NumberField(a[2])); else H := Compositum(NumberField(a[1]),NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if ([3,3,9] eq pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;

A250241 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and second 3-class group isomorphic to SmallGroup(729,34).

Original entry on oeis.org

2589, 4853, 7881, 8057, 8769, 9905, 11697, 20693, 21281, 21337, 24917, 25185, 27548, 28061, 28137, 28936, 28940, 29485, 33864, 35224, 37916, 39633, 41628, 49461, 49541
Offset: 1

Views

Author

Keywords

Comments

For the discriminants d in A250241, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) has at least three stages and the second 3-class group G of K is given by G=SmallGroup(729,34), which is called the non-CF group H by Ascione, Havas and Leedham-Green. It has properties very similar to those of SmallGroup(729,37), called the non-CF group A. Both are immediate descendants of SmallGroup(243,3) and can only be distinguished by their commutator subgroup G', which is of type (3,3,3,3) for H, and (3,3,9) for A.
Since the verification of the structure of G' requires computation of the 3-class group of the Hilbert 3-class field of K, which is of absolute degree 36 over Q, the construction of A250241 is extremely tough.
In 40.5 hours of CPU time, Magma computed all 25 discriminants d up to the bound 50000. Starting with d=37916, Magma begins to struggle considerably, since an increasing amount of time (NOT included above) is used for swapping to the hard disk. A very powerful machine would be required for continuing beyond 50000. - Daniel Constantin Mayer, Dec 02 2014
The group G=SmallGroup(729,34) has p-multiplicator rank m(G)=5. By Theorem 6 of I. R. Shafarevich (with misprint corrected) the relation rank of the 3-class tower group H is bounded by r(H) <= d(H) + r + 1 = 2 + 1 + 1 = 4, where d(H) denotes the generator rank of H and r is the torsionfree unit rank of K. Thus, G with r(G) >= m(G) = 5 cannot be the 3-class tower group of K and the tower must have at least three stages. - Daniel Constantin Mayer, Sep 24 2015

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.
  • I. R. Shafarevich, Extensions with prescribed ramification points, Publ. Math., Inst. Hautes Études Sci. 18 (1964), 71-95 (Russian). English transl. by J. W. S. Cassels: Am. Math. Soc. Transl., II. Ser., 59 (1966), 128-149. - Daniel Constantin Mayer, Sep 24 2015

Crossrefs

A006832, A250235, A250236 are supersequences.
A250237, A250238, A250239, A250240, A250242 are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 2589 to 10000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R,E); C, mC := ClassGroup(K); if ([3,3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]),NumberField(a[2])); else H := Compositum(NumberField(a[1]),NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if ([3,3,3,3] eq pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;

A250242 Fundamental discriminants d uniquely characterizing all complex biquadratic fields Q(sqrt(-3),sqrt(d)) which have 3-class group of type (3,3) and second 3-class group isomorphic to either SmallGroup(2187,247)-#1;5 or SmallGroup(2187,247)-#1;9.

Original entry on oeis.org

11608, 14056, 20521, 21109, 25949, 27245, 27329, 31065, 32421, 32765, 38085, 38285, 39853, 40156, 43257, 45541, 46489, 48481
Offset: 1

Views

Author

Keywords

Comments

For the discriminants d in A250242, the 3-class field tower of K=Q(sqrt(-3),sqrt(d)) has at least three stages and the second 3-class group G of K is of coclass 2, given by either SmallGroup(2187,247)-#1;5 or SmallGroup(2187,247)-#1;9. (Note that these groups G are of order 6561 and lie outside of the SmallGroups Library, whence we must use the terminology for descendants defined in the ANUPQ package of Magma and GAP.) Both have transfer kernel type b.10, (0,0,4,3), and full transfer target type [(3,3);(9,27),(3,9),(3,3,3)^2;(3,9,27)]). Both are immediate descendants of the mainline group SmallGroup(2187,247) on the coclass tree with root SmallGroup(729,40) and cannot be distinguished by any known arithmetical criteria. Their commutator subgroup G' is of type (3,9,27).
Since the verification of the structure of G' (used by the given Magma PROG) requires computation of the 3-class group of the Hilbert 3-class field of K, which is of absolute degree 36 over Q, the construction of A250242 is rather expensive.
Both groups G=SmallGroup(2187,247)-#1;5 and G=SmallGroup(2187,247)-#1;9 have p-multiplicator rank m(G)=5. By Theorem 6 of I. R. Shafarevich (with misprint corrected) the relation rank of the 3-class tower group H is bounded by r(H) <= d(H) + r + 1 = 2 + 1 + 1 = 4, where d(H) denotes the generator rank of H and r is the torsionfree unit rank of K. Thus, G with r(G) >= m(G) = 5 cannot be the 3-class tower group of K and the tower must have at least three stages. - Daniel Constantin Mayer, Sep 24 2015

Examples

			Up to 50000, the discriminants 20521 and 40156 are the only two terms which show a twisted bipolarization. All the other discriminants, starting with 11608, 14056, 21109, etc., reveal the (usual) parallel bipolarization among the four unramified cyclic cubic extensions. In the twisted case, the Hilbert 3-class field of the complex quadratic subfield Q(sqrt(-3d)) gives rise to the distinguished extension of type (9,27) (contained in the transfer target type), whereas in the parallel case the Hilbert 3-class field of the real quadratic subfield Q(sqrt(d)) is responsible for (9,27).
		

References

  • H. U. Besche, B. Eick, and E. A. O'Brien, The SmallGroups Library - a Library of Groups of Small Order, 2005, an accepted and refereed GAP 4 package, available also in MAGMA.
  • I. R. Shafarevich, Extensions with prescribed ramification points, Publ. Math., Inst. Hautes Études Sci. 18 (1964), 71-95 (Russian). English transl. by J. W. S. Cassels: Am. Math. Soc. Transl., II. Ser., 59 (1966), 128-149. - Daniel Constantin Mayer, Sep 24 2015

Crossrefs

Cf. A006832, A250235, A250236, which are supersequences.
Cf. A250237, A250238, A250239, A250240, A250241, which are disjoint sequences.

Programs

  • Magma
    SetClassGroupBounds("GRH"); for n := 11608 to 50000 do cnd := false; if (1 eq n mod 4) and IsSquarefree(n) then cnd := true; end if; if (0 eq n mod 4) then r := n div 4; if IsSquarefree(r) and ((2 eq r mod 4) or (3 eq r mod 4)) then cnd := true; end if; end if; if (true eq cnd) then R := QuadraticField(n); E := QuadraticField(-3); K := Compositum(R,E); C, mC := ClassGroup(K); if ([3,3] eq pPrimaryInvariants(C, 3)) then s := Subgroups(C: Quot := [3]); a := [AbelianExtension(Inverse(mq)*mC) where _, mq := quo : x in s]; b := [NumberField(x) : x in a]; d := [MaximalOrder(x) : x in a]; b := [AbsoluteField(x) : x in b]; c := [MaximalOrder(x) : x in b]; c := [OptimizedRepresentation(x) : x in b]; b := [NumberField(DefiningPolynomial(x)) : x in c]; a := [Simplify(LLL(MaximalOrder(x))) : x in b]; if IsNormal(b[2]) then H := Compositum(NumberField(a[1]),NumberField(a[2])); else H := Compositum(NumberField(a[1]),NumberField(a[3])); end if; O := MaximalOrder(H); CH := ClassGroup(LLL(O)); if ([3,9,27] eq pPrimaryInvariants(CH, 3)) then n, ", "; end if; end if; end if; end for;
Showing 1-10 of 19 results. Next