plot[(log(x)/log(x-1))] x=1 to 10