Show[Plot[x, {x, 0.1, 5}], Plot[3*Log[x], {x, 0.1, 5}]]

Solve[3*Log[x]==x, x]

N[%]

NSolve[3*Log[x]==x, x]

FindRoot[3*Log[x]==x, {x, 3}]

??ProductLog

Solve[2*Log[x]==x, x]

N[%]