Divisores

Pero esto no es fácil, porque el orden natural de los números no
coincide con el del número de divisores, por lo que deberemos avanzar
uno a uno y quedarnos con el máximo.
Veamos qué necesitamos:
Una función POTE(a;p) que nos indique el exponente con el que
figura un número p en la descomposición en factores primos de a. Si
no figura, el valor de la función será cero.
Otra función ESPRENAC(n) que indique si un número puede ser
altamente compuesto o no, dependiendo de si presenta el esquema
exigido con exponentes decrecientes.
Deberemos usar la función POTE y con ella verificar que los
exponentes son los adecuados.
Un truco muy útil es el siguiente:
Si el número no obedece el esquema previo, la función ESPRENAC
devuelve un cero, pero si lo obedece, la salida será el número de
divisores. De esta forma podremos comparar este número con los de
los anteriores y descubrir cuándo se ha llegado a un NAC.
Función POTE
Dado un número natural a y un primo p (en el algoritmo no se necesita
que sea primo), para calcular el exponente con el que figura p en la
90