Plot[Evaluate[{Zeta[n], D[Zeta[n], n]}], {n, -15, -1}]