„ô > Primes4
Ž1ô 21Sep1996 JGH: Fast 6n-1, 6n+1 prime lister
˜:
¢3ñ2;" is prime number 1":ñ3;" is prime number 2"
¬N%=5:I%=2:O%=2:T%=‘:õ
¶KD%=1:A%=4:F%=£:ç(N%ƒ3):L%=¶N%:õD%=D%+A%:A%=A%‚6:F%=(N%ƒD%)=0:ýF%„D%>=L%
ÀQç¬(F%€D%<=L%):O%=O%+1:ñN%;" is prime number ";O%;" after ";(‘-T%)/100;" secs"
ÊN%=N%+I%:I%=I%‚6:ý£
ÿ