Plot[4^(1 - Cos[x] ) - Log[x]/Log[Pi/3] - Log[Pi/3]/Log[x],{x,0,10}]