Plot[log(5000 - e^x/2), {x, 0, log(10000)}]