/* Ein Rexx-Programm */
/* Initialisierung */
zahl. = 1 /* Alle Zahlen sind Primzahlen */
/* Primzahlen sieben */
do index = 2 to 100
if zahl.index = 1 then do index2 = (index*index) to 10000 by index
zahl.index2 = 0
end
end
/* Ausgabe der Primzahlen */
do index = 2 to 10000
if zahl.index = 1 then say index
end
/* Ein REXX-Programm */
initial=1
obergrenze = 10000
anzahl_primzahlen = 1
primzahl_zeiger.1=2
say 2
do index = 3 to obergrenze
primzahl_wahr = 1
laeufer = initial
do anzahl_primzahlen
laeufer = primzahl_zeiger.laeufer
if index // laeufer = 0 then primzahl_wahr = 0
end
if primzahl_wahr = 1 then do
primzahl_zeiger.laeufer = index
anzahl_primzahlen = anzahl_primzahlen + 1
say index
end
end