Esta mañana recibí un mensaje en el Activo Mathematica yahoo lista de correo de la firma "en cero" pidiendo para calcular esta suma:
$$\sum _{k=1}^n \frac{\log (p_k)}{\log (p_n)}$$
where $p_n$ es el n-ésimo número primo.
O como un programa en Mathematica:
N[Table[Sum[Log[Prime[k]]/Log[Prime[n]], {k, 1, n}], {n, 1, 10}]]
con la salida de partida:
{1., 1.63093, 2.11328, 2.74787, 3.22992, 4.01955, 4.63896, 5.46372, 6.1308, 6.70876}
El uso de los números primos de la lista de la oeis, http://oeis.org/A000040/a000040.txt He calculado la suma de hasta el 100 000 - ésimo número primo.
Interesado en lo que la trama se ve como tengo aproximadamente lineal de la trama, el uso de la ListLinePlot comando:
Pero lo que me parece más interesante es la ListPlot de las primeras diferencias de la suma:
Lo explica de modo similar, en forma de curvas en esta segunda trama? También hacen este tipo de curvas tiene un nombre?
La fórmula para datos en la segunda trama es: $$\sum _{k=1}^n \frac{\log (p_k)}{\log (p_n)}-\sum _{k=1}^{n-1} \frac{\log (p_k)}{\log (p_{n-1})}$$
Editar 20.4.2013:
Para la comparación he aquí agregar el ListLinePlot de datos en la segunda trama:
que no revele ningún patrón.