Plot[(5 - Log[x]/Log[10]), {x, 100,10000}]