MatsGranvik

Riemann zeta zeros as arbitrary eigenvalues

Oct 14th, 2018
388
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. (*start*)
  2. Clear[n, k, nn];
  3. s = 1;
  4. nnn = 4;
  5. a = N[Flatten[{Im[ZetaZero[1]],
  6. Differences[Im[ZetaZero[Range[nnn]]]]}]];
  7. MatrixForm[
  8. Table[Table[(a[[n]])^(s/2)*(a[[k]])^(s/2), {k, 1, nnn}], {n, 1, nnn}]]
  9. Table[Max[
  10. Eigenvalues[
  11. Table[Table[(a[[n]])^(s/2)*(a[[k]])^(s/2), {k, 1, nn}], {n, 1,
  12. nn}]]], {nn, 1, nnn}]
  13. (*end*)
Advertisement
Add Comment
Please, Sign In to add comment