curly Riemann zeta

Clear[s, t, f];
c = 1/100;
f[t_] = D[RiemannSiegelTheta[t], t] + c + EulerGamma;
ParametricPlot[{Re[
   Zeta[1/2 + t*I]*Zeta[1 + 1/c]/Zeta[1/2 + t*I + 1 + 1/c - 1]],
  Im[Zeta[1/2 + t*I]*
    Zeta[1 + 1/c]/Zeta[1/2 + t*I + 1 + 1/c - 1]]}, {t, 0, 60}]
Clear[s, t, f];
c = 4;
f[t_] = D[RiemannSiegelTheta[t], t] + c + EulerGamma;
ParametricPlot[{Re[
   Zeta[1/2 + t*I]*Zeta[1 + 1/c]/Zeta[1/2 + t*I + 1 + 1/c - 1]],
  Im[Zeta[1/2 + t*I]*
    Zeta[1 + 1/c]/Zeta[1/2 + t*I + 1 + 1/c - 1]]}, {t, 0, 60}]



Clear[s, t]
ParametricPlot[{Re[Zeta[1/2 + t*I]], Im[Zeta[1/2 + t*I]]}, {t, 0, 35}]
ParametricPlot[{Re[
   Zeta[1/2 + I*t]*
    Total[Table[
      Total[MoebiusMu[Divisors[n]]/
         Divisors[n]^(1/2 + I*t - 1)]/(n), {n, 1, 35}]]],
  Im[Zeta[1/2 + I*t]*
    Total[Table[
      Total[MoebiusMu[Divisors[n]]/
         Divisors[n]^(1/2 + I*t - 1)]/(n), {n, 1, 35}]]]}, {t, 1/1000,
   35}]