Solve[x z - Log[x] == 0, x]