Solve[12 == -(1/k)Log[1 - 6 k], k]