可以使用现成的函数 FindRoot ,
In[1]:= FindRoot[20*Sin[x] == Log[x],{x,65}]
Out[1]= {x -> 65.7626}