Useless relationship between the Riemann zeta and prime zeta function.

Mathematica 8:


(*program start*)
Clear[a, b, epsilon, n, k];
a = {0, 1, 1, 2, 1, 0, 1, 3, 2, 0, 1, 0};
b = {0, 0, 0, 2, 0, 1, 0, 3, 2, 1, 0, 0};
epsilon = 1/10000;
MatrixForm[
Table[Table[
Sqrt[(Im[Log[n - k - 1]] - Im[Log[n - k]])/Pi*a[[n]]*b[[k]]], {n,
1, 12}], {k, 1, 12}]]
(*program end*)

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.