$IF 0

By Juergen Heise

In der hier vorliegenden Version werden Primzahlen bis max. 900.000.000
ausgegeben.

$ENDIF

DEFINT A-Z
CLS

anzahl& = 500000                          '<- hier die max. Anzahl vorgeben
anzahl1& = anzahl& - 30000
DIM zahl(30000)
FOR i = 3 TO SQR(30000) STEP 2
  FOR j = i * i TO 30000 STEP i * 2
    zahl(j) = 1
  NEXT
NEXT
PRINT " 2 ";
FOR i = 1 TO 30000 STEP 2
  IF zahl(i) = 0 THEN
    PRINT i;
    k = k + 2
    zahl(k) = i
    ELSE
    zahl(i) = 0
  END IF
NEXT
kor = 30000
DO
  mult& = mult& + 30000
  IF mult& > anzahl1& THEN
    kor = anzahl& - mult&
    mult& = anzahl& - kor
    ende = 1
  END IF
  x = SQR(30000 + mult&): k = 2
  DO
    k = k + 2
    y = zahl(k) - (mult& MOD zahl(k))
    IF y MOD 2 = 0 THEN y = y + zahl(k)
    zahl(y) = 1
    DO WHILE y <= kor - 2 * zahl(k)
      y = y + zahl(k) * 2
      zahl(y) = 1
    LOOP
  LOOP UNTIL zahl(k) >= x
  FOR i = 1 TO kor - 4 STEP 2
    IF zahl(i) = 0 THEN
      PRINT i + mult&;
      ELSE
      zahl(i) = 0
    END IF
    i = i + 4
    IF zahl(i) = 0 THEN
      PRINT i + mult&;
      ELSE
      zahl(i) = 0
    END IF
  NEXT
LOOP UNTIL ende