FindRoot[ Tan[Pi/x] - Pi/x == 0, {x, 0.67, 1}, WorkingPrecision -> 60]