Advertisement
MatsGranvik

Dirichlet generating function for Dirichlet divisor problem

Sep 24th, 2017
185
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. Clear[nn, k, s, m]
  2. nn = 50;
  3. s = 12;
  4. N[Total[Accumulate[DivisorSigma[0, Range[nn]]]/Range[nn]^s], 16]
  5. N[Sum[(Zeta[s - 1] - Sum[HurwitzZeta[s, n/k]*n/k^s, {n, 1, k - 1}])/k, {k, 1, nn}], 16]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement