Solve[y==x/Ln[x],x