Divisores

En el Basic de las hojas de cálculo se evalúa esta función de forma idéntica a
la de g(n), usando la fórmula de Polignac, solo que se cuentan factores en
lugar de multiplicarlos:
Public Function p(n)
Dim i, s
s = 0
For i = 1 To n
If Not esnumpar(polignac(n, i)) Then s = s + 1
Next i
p = s
End Function
Así hemos reproducido sin dificultad los primeros valores:
N
P(N)
1 0
2 1
3 2
4 2
5 3
6 1
7 2
8 3
9 3
10 1
11 2
12 3
13 4
14 4
15 4
16 4
17 5
18 4
19 5
20 4
Al igual que g(n), la función p(n) crecerá en los números primos y se
mantendrá constante en los cuadrados. En los demás podrá aumentar o
disminuir. Recorre la tabla para verificarlo.
115