Advertisement
MatsGranvik

von Mangoldt function and von Mangoldt matrix

Feb 9th, 2013
334
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. Clear[t];
  2. nn = 64;
  3. t[n_, 1] = 1;
  4. t[1, k_] = 1;
  5. t[n_, k_] :=
  6. t[n, k] =
  7. If[n < k,
  8. If[And[n > 1, k > 1], Sum[-t[k - i, n], {i, 1, n - 1}], 0],
  9. If[And[n > 1, k > 1], Sum[-t[n - i, k], {i, 1, k - 1}], 0]];
  10. g1 = ListPlot[
  11. Table[Total[
  12. Total[Table[
  13. Table[If[k == 1, 0, t[n, k]/n], {k, 1, ii}], {n, 1,
  14. ii}]]], {ii, 1, nn}], PlotStyle -> RGBColor[1, 0, 1]];
  15. g2 = ListLinePlot[Accumulate[Table[MangoldtLambda[ii], {ii, 1, nn}]]];
  16. Show[g1, g2]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement