Divisores

descomposición de a bastará ir dividiendo a entre p todas las veces
posibles siempre que p siga siendo divisor de a y de los cocientes
sucesivos. Algo así:
Pongo un contador a cero
MIENTRAS p sea divisor de a
Divido a entre p y vuelvo a probar
Aumento el contador por cada división exacta
FIN del MIENTRAS
El contador será el exponente
Su funcionamiento se entiende bien: al principio no sabemos si p es
divisor de a, por lo que le asignamos exponente cero (el contador).
Después intentamos una división exacta de a entre p. Cada vez que lo
logremos aumenta el contador del exponente.
Código en Basic de hoja de cálculo
Public Function pote(a, b)
Dim p, c, d
p = 0: c = a
d = c / b (división con decimales)
While d = c \ b (división entera)
p = p + 1
c = c / b
d = c / b
Wend
pote = p
End Function
Dejamos a nuestros lectores la interpretación de este código.
Función ESPRENAC
Su objetivo es descubrir si un número tiene la estructura adecuada
para ser NAC, es decir, que en su descomposición en factores primos
sólo figuren los primeros con exponentes no crecientes.
91