Sum[j*Binomial[j,r],{j,1,n}]