Sum[HarmonicNumber[n]/(n+1)^4,{n,1,Inf}]