Minimize[1000 - 2 x + 4 Sqrt[x^2 + 500^2], {x}]