Log[x] - Sqrt[x-1] + 1 where x = (InverseGammaRegularized[3, 1/2] + 1)^2 + 1