scale = 400;
Print["Counting to 60"]
Monitor[g1 =
ListLinePlot[
Accumulate[(1 -
Table[Re[
Zeta[1/2 - I*k]*
Total[Table[
Total[MoebiusMu[Divisors[n]]/
Divisors[n]^(1/2 - I*k - 1)]/n/Log[scale]/1.35, {n,
1, scale}]]], {k, 0 + 1/1000, 60, N[1/6]}])^12],
DataRange -> {0, 60}, PlotRange -> {-0.15, 15}];, Floor[k]]
Show[g1]