Plot[log_(1 - 0.016) (1 - p)], 0 <= p <= 1