# SageMath code for working with p-adic field 13.1.13.14a2.3.


# Define the p-adic field: 
Prec = 100  # Default precision of 100
Q13 = Qp(13, Prec); x = polygen(QQ)
K.<a> = Q13.extension(x^13 + 52*x^2 + 13)

# Defining polynomial: 
K.defining_polynomial()

# Base field Qp: 
K.base()

# Degree over Qp: 
K.absolute_degree()

# Ramification index: 
K.absolute_e()

# Residue field degree (Inertia degree): 
K.absolute_f()

# Maximal unramified subextension: 
K.maximal_unramified_subextension()

# Roots of unity: 
len(K.roots_of_unity())