This morning I got a message on the Active Mathematica yahoo mailing list from the signature "in zero" asking to calculate this sum:
$$\sum _{k=1}^n \frac{\log (p_k)}{\log (p_n)}$$
where $p_n$ is the n-th prime number.
Or as a Mathematica program:
N[Table[Sum[Log[Prime[k]]/Log[Prime[n]], {k, 1, n}], {n, 1, 10}]]
with the output starting:
{1., 1.63093, 2.11328, 2.74787, 3.22992, 4.01955, 4.63896, 5.46372, 6.1308, 6.70876}
Using the prime numbers list from the oeis, http://oeis.org/A000040/a000040.txt I calculated the sum up to the 100 000 - th prime number.
Interested in what the plot looks like I got an approximately linear plot, using the ListLinePlot command:

But what I find more interesting is the ListPlot of the first differences of the sum:

What explains the similarly shaped curves in this second plot? Also do these type of curves have a name?
The formula for data in the second plot is: $$\sum _{k=1}^n \frac{\log (p_k)}{\log (p_n)}-\sum _{k=1}^{n-1} \frac{\log (p_k)}{\log (p_{n-1})}$$
Edit 20.4.2013:
For comparison I here add the ListLinePlot of data in the second plot:

which does not reveal any pattern.