Divisores

Fórmula de Polignac
Esta útil fórmula la estudiamos en la entrada
http://hojaynumeros.blogspot.com.es/2009/02/formula-de-polignac.html,
a la que remitimos para su definición y estudio.
La fórmula recorre todas las potencias de los factores primos menores que n y
para cada una de ellas evalúa la parte entera del cociente de n entre cada una
de las potencias.
El resultado equivale al exponente del factor primo dentro del factorial. Esto
nos da una oportunidad para encontrar la parte libre de dicho factorial:
Recorremos todos los números primos menores que nA cada uno le
aplicamos la fórmula de Polignac
Si su exponente es par, pertenece a la parte cuadrada del factorial, y no nos
interesa.
Si es impar, pertenecerá la parte libre, es decir, a g(n), tomándolo con
exponente la unidad.
No es difícil programar como función estos cálculos. Este listado lo entenderás
bien. Devuelve un cero si el número no es primo y su exponente dentro del
factorial si lo es:
Public Function polignac(n, p) n es el número y p el primo
Dim pol, pote
103