CURIOSIDAD MATEMÁTICA SOBRE NÚMEROS PRIMOS / FIRST 25 PRIMES

Les comparto con gusto una curiosidad matemática que involucra a los Números Primos. El día de ayer por la noche encontré una fórmula muy interesante que genera los 25 primeros números primos.

PRIMEROS 25 NÚMEROS PRIMOS

 a(n) = floor((9887776655444332211110000 mod 10^n)/10^(n - 1)) * 10^(floor(log10(m))+1) + m, where m = floor((7939317193731719397317532 mod 10^n)/10^(n - 1)), 1<=n<=25.


CÓDIGO PARA SU EJECUCIÓN EN EL PROGRAMA MATEMATHICA

Table[((Floor[Mod[9887776655444332211110000, 10^(n)]/10^(n - 1)]*10^(Floor[Log[10, Floor[Mod[7939317193731719397317532, 10^(n)]/10^(n - 1)]]] + 1) +
Floor[Mod[7939317193731719397317532, 10^(n)]/10^(n - 1)])), {n, 1, 25}]

AUTOR: José de Jesús Camacho Medina,  May 05 2016
Fresnillo Zacatecas México