NMaximize[-z / 1000 + Log[z^4 - 12 z^3 + 36 z^2 - 24z], {z, 0, 10000}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.