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