// Magma code for working with number field 38.0.7892746960221820898131562172323886834213973461541107170325061114527744.1

// (Note that not all these functions may be available, and some may take a long time to execute.)

// Define the number field: 
R<x> := PolynomialRing(Rationals()); K<a> := NumberField(R![4, -4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1]);

// Defining polynomial: 
DefiningPolynomial(K);

// Degree over Q: 
Degree(K);

// Signature: 
Signature(K);

// Discriminant: 
Discriminant(Integers(K));

// Ramified primes: 
PrimeDivisors(Discriminant(Integers(K)));

// Integral basis: 
IntegralBasis(K);

// Class group: 
ClassGroup(K);

// Unit group: 
UK, f := UnitGroup(K);

// Unit rank: 
UnitRank(K);

// Generator for roots of unity: 
K!f(TU.1) where TU,f is TorsionUnitGroup(K);

// Fundamental units: 
[K!f(g): g in Generators(UK)];

// Regulator: 
Regulator(K);

// Galois group: 
GaloisGroup(K);

// Frobenius cycle types: 
p := 7;  // to obtain a list of $[e_i,f_i]$ for the factorization of the ideal $p\mathcal{O}_K$:
idealfactors := Factorization(p*Integers(K));  // get the data
[<primefactor[2], Valuation(Norm(primefactor[1]), p)> : primefactor in idealfactors];