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