DirichletTransform[Mod[n, 5], n, 1/2 + I t]
DirichletTransform[Mod[n, 5], n, 1/2 + I t]; Plot[Re[%], {t, -10, 10}]