ReplaceAll[ReplaceAll[zeta(-n,s)-zeta(-n,1-s),{n -> 5}],{s -> 1/e+i}]