Sum[2*n*(1+ln[(n)/(n-k)]) + 2*kln[(n-k)/k],{k,1,n-1}] where n = 5000