FindRoot[ArcCot[x] == x, {x, 1}, WorkingPrecision -> 15]