sum of D[-Log[Binomial[k + r - 1, k]*(1 - p)^r*p^k],{p,2}]*Binomial[k + r - 1, k]*(1 - p)^r*p^k from k=0 to infinity