“…PROGRAM II. STRUCTURE OF T_K, K=Q(el^n), FOR ANY el, n, p<Bp {el=2;n=3;Bp=2*10^5;if(el==2,P=x;for(j=1,n,P=P^2-2));if(el!=2, P=polsubcyclo(el^(n+1),el^n));Ex=6;K=bnfinit(P,1);forprime(p=2,Bp, KpEx=bnrinit(K,p^Ex);HpEx=KpEx.cyc;L=List;e=matsize(HpEx) [2];R=0; for(k=1,e-1,c=HpEx[e-k+1];w=valuation(c,p); if(w>0,R=R+1;listinsert(L,p^w,1))); if(R>0,print("el=",el," n=",n," p=",p," rk(T)=",R," T=",L)))} el=2 n=1 p=13 rk(T)=1 T= [13] el=2 n=3 p=29 rk(T)=1 T= [29] el=2 n=1 p=31 rk(T)=1 T= [31] el=2 n=3 p=521 rk(T)=1 T=[521] el=2 n=2 p=13 rk(T)=2 T= [169,13] el=3 n=1 p=7 rk(T)=1 T=[7] el=2 n=2 p=31 rk(T)=1 T= [31] el=3 n=1 p=73 rk(T)=1 T=[73] el=2 n=2 p=29 rk(T)=1 T= [29] el=3 n=2 p=7 rk(T)=1 T=[7] el=2 n=2 p=37 rk(T)=1 T= [37] el=3 n=2 p=73 rk(T)=1 T=[73] el=2 n=3 p=3 rk(T)=2 T= [3,3] el=5 n=1 p=11 rk(T)=2 T= [11,11] el=2 n=3 p=31 rk(T)=1 T= [31] el=5 n=2 p=11 rk(T)=2 T= [11,11] el=2 n=3 p=13 rk(T)=2 T= [169,13] el=5 n=2 p=101 rk(T)=1 T=[101] el=2 n=3 p=37 rk(T)=1 T= [37] Remark 2.2. These partial results show that p-ramification aspects are more intricate since, for instance for ℓ = 2, the divisibility by p = 29 only appears for n = 2 and, for p = 13, the 13-rank and the exponent increase from n = 1 to n = 2.…”