FindRoot[Sec[x] == x, {x, 7}, WorkingPrecision -> 15]