Sum[(1/k) (1/(Sqrt[k] - 1) - 1/(Sqrt[k] + 1)