Solve[3x == (x + 3)Log[x + 1], x]