Divisores

Esta función recorre los primeros números primos 2, 3, 5, 7, …
(representados en el código por la variable pr(i)) y va calculando la
función POTE para cada uno de ellos. Analiza si ninguno es cero y si
forman una sucesión no creciente. De paso, almacena (1+POTE) para
al final calcular el número de divisores. El esquena sería:
Inicio una variable SIGUE a uno
MIENTRAS el número N sea mayor que 1 y SIGUE>0
Recorro los primeros números primos
Para cada uno de ellos evalúo la función POTE, con lo N disminuirá
Si POTE es nula o mayor que la anterior, hago SIGUE=0
En caso contrario multiplico SIGUE por (1+POTE), con lo que preparo
el cálculo del número de divisores
FIN del mientras
Por último, ESPRENAC toma el valor de SIGUE. Si es cero, es que el
número no puede ser altamente compuesto y si no lo es, devolverá el
número de divisores.
Su código puede ser:
Public Function esprenac(n)
Dim p(20)
Dim c, i
Dim sigue
c = n
i = 0
sigue = 1
While c > 1 And sigue > 0
If i < 20 Then
i = i + 1
p(i) = pote(c, pr(i))
If p(i) = 0 Then sigue = 0
c = c / pr(i) ^ p(i)
sigue = sigue * (p(i) + 1)
If i > 1 Then
If p(i) > p(i - 1) Then sigue = 0
End If
92