Sum[(1/k) Binomial[n, k] p^k (1 - p)^(n - k), {k, 1, n}]