You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Podemos usarla y plantear que para un número dado vamos aplicando<br />
esa fórmula desde 1 hasta N, deteniéndonos cuando el exponente k de<br />
p k sea inferior a lo que nos dé la fórmula de Polignac. Lo planteamos<br />
como una función de dos variables, el primo p y el exponente k. No<br />
analizaremos si p es primo y si k es entero.<br />
Public Function smar3(p, k) ‘Dos parámetros, el primo p y el<br />
exponente k<br />
Dim n, s<br />
Dim sigue As Boolean<br />
If k p, comparando con los<br />
resultados de SMAR2<br />
Primo Exponente SMAR2 SMAR3<br />
2 7 8 8<br />
2 3 4 4<br />
2 3 4 4<br />
7 8 49 49<br />
5 6 25 25<br />
3 11 27 27<br />
2 20 24 24<br />
3 12 27 27<br />
Kempner desarrolló un algoritmo para esta situación, pero como no lo<br />
hemos encontrado bien explicado y es complejo (téngase cuenta que<br />
se creó antes de la existencia del cálculo automático), nos quedamos<br />
con los tres nuestros.<br />
Lo puedes consultar en<br />
http://mathworld.wolfram.com/SmarandacheFunction.html<br />
75