MatsGranvik

zeta squared relation to von Mangoldt function matrix

Dec 29th, 2015
142
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. (*start*)
  2. Clear[t, a, b];
  3. a = 0;
  4. b = 1;
  5. nn = 12;
  6. t[1, 1] = 1;
  7. t[n_, 1] = 0;
  8. t[1, k_] = 0;
  9. t[n_, k_] :=
  10. t[n, k] =
  11. If[n < k,
  12. If[And[n > 1, k > 1],
  13. a*Sum[t[k - i, n - 1] - t[k - i, n], {i, 1, n - 1}], 0],
  14. If[And[n > 1, k > 1],
  15. b*Sum[t[n - i, k - 1] - t[n - i, k], {i, 1, k - 1}], 0]];
  16. a = Table[Table[t[n, k], {k, 1, nn}], {n, 1, nn}];
  17. MatrixForm[a]
  18.  
  19. Clear[t, a, b];
  20. a = 1;
  21. b = 1;
  22. nn = 12;
  23. t[1, 1] = 1;
  24. t[n_, 1] = 0;
  25. t[1, k_] = 0;
  26. t[n_, k_] :=
  27. t[n, k] =
  28. If[n < k,
  29. If[And[n > 1, k > 1],
  30. a*Sum[t[k - i, n - 1] - t[k - i, n], {i, 1, n - 1}], 0],
  31. If[And[n > 1, k > 1],
  32. b*Sum[t[n - i, k - 1] - t[n - i, k], {i, 1, k - 1}], 0]];
  33. a = Table[Table[t[n, k], {k, 1, nn}], {n, 1, nn}];
  34. MatrixForm[a]
  35. (*end*)
Add Comment
Please, Sign In to add comment