Plot[Zeta[s, 0], {s, -5, 5}]