Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Ahora el 4 y el 6 poseen valores para la función buscada:<br />
MF_SOPFR(4)=4=2*2 y MF_SOPFR(6)=8=2*2*2. El 1 sigue sin<br />
presentar solución.<br />
La función sopfr se obtiene con un código similar, pero los divisores<br />
primos se suman cada vez que aparecen (línea con el añadido de ‘**)<br />
Public Function sopfr(n)<br />
Dim f, a, s<br />
If n=1 then sopfr=0:exit function<br />
If