plot[log(x)/x - log(3)/3, {x,1,4}]