Hätte ich auch noch was anzubieten:
Beispielscript
$Primzahlen = _Primzahlen(1,2067)
If $Primzahlen <> 0 Then
_ArrayDisplay($Primzahlen)
Else
MsgBox(0,"","Es ist ein Fehler beim Aufruf der Funktion aufgetreten")
EndIf
; Erzeugt Primzahlen von/bis
Func _Primzahlen($von,$bis)
Local $zahl = $von, $aPrim[1], $teiler
$aPrim[0] = 0
If $von = 0 Or $bis = 0 Or $von > $bis Then Return 0
Do
If $zahl = 1 Then
$zahl += 1
ContinueLoop
EndIf
If $zahl = 2 Then
ReDim $aPrim[UBound($aPrim)+1]
$aprim[0] = UBound($aPrim)-1
$aPrim[UBound($aPrim)-1] = $zahl
$zahl += 1
ContinueLoop
Else
If Mod($zahl,2) <> 0 Then
$teiler = Round(SQRT($aPrim[UBound($aPrim)-1]))
If Mod($teiler,2) = 0 Then $teiler = $teiler - 1
Do
If Mod($zahl,$teiler) = 0 Then ExitLoop
$teiler = $teiler - 2
Until $teiler < 3
If $teiler < 3 Then
ReDim $aPrim[UBound($aPrim)+1]
$aprim[0] = UBound($aPrim)-1
$aPrim[UBound($aPrim)-1] = $zahl
EndIf
EndIf
EndIf
$zahl += 1
Until $zahl > $bis
Return $aPrim
EndFunc
Edit: kleiner Fehler...