Plot[Gamma[1 + s] Zeta[1 + s], {s, -1, 5}]