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
Fresnillo Zacatecas México
No hay comentarios:
Publicar un comentario