for the equation:
Mod[sq(Mod[sq(Mod[sq(Mod[sq(Mod[14, 2^136279841-1])-2, 2^136279841-1])-2, 2^136279841-1])-2, 2^136279841-1])-2, 2^136279841-1]
sq[x_] := x*x; Mod[ sq[Mod[ sq[Mod[ sq[Mod[ sq[Mod[14, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1]
Mod[Sqrt[ Mod[Sqrt[ Mod[Sqrt[ Mod[Sqrt[Mod[14, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1]] - 2, 2^136279841 - 1] % // N
What is sq?
sq
