para I de P en E(N/P) ejecutar
//E(N/P) representa la parte entera de N/P
0 -
TAB
I*P
>
[
]
/fpara/
/ / se han eliminado todos los múltiplos de P a partir de P*P
P+1-
P
>
/ / se busca el número más pequeño
/ / entre P y N
mientras que (P*P
P + 1 -
P
>
mientras que
mientras que
// se escribe el resultado en una lista PREM
para I de 2 a N ejecutar
si TAB
I
0 so
[
] ¹
PREM + I -
PREM
>
/fsi/
/fpara/
resultado: PREM
7.11.3
Traduccion en la HP 40G
Programa CRIBLE:
El usuario debe introducir el valor de N.
Al final la lista L2 contendrá los números primos inferiores o iguales a N.
INPUT N
CRIBLE
;²
ERASE:
MAKELIST(I,I,1,N,1) -
Entradas
Calculo Simbólico y Matemático con la HP 40G
= N no eliminado
<
N) y (TAB
P
= 0) ejecuta
£
[
]
N=
10:
²;²
²; ;
L1:
>
139