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).
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
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
Links
- J. A. Ascione, G. Havas, and C. R. Leedham-Green, A computer aided classification of certain groups of prime power order, Bull. Austral. Math. Soc. 17 (1977), 257-274.
- D. C. Mayer, The second p-class group of a number field, Int. J. Number Theory 8 (2) (2012), 471-505.
- D. C. Mayer, The second p-class group of a number field. Preprint: arXiv:1403.3899v1 [math.NT], 2014.
- D. C. Mayer, Principalization algorithm via class group structure, Preprint: arXiv:1403.3839v1 [math.NT], 2014. J. Théor. Nombres Bordeaux 26 (2014), no. 2, 415-464.
Crossrefs
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;
Comments