Sehr schneller Primzahl-Finder

[Phantom1]

Achso ist das...

Ich habe beide möglichkeiten mal getestet:
Primes.IndexOf(500Mio, False); ergab eine Zeit von 798ms

Delphi-Quellcode:

I := 0;
  while Primes[i] < 500000000 do
    Inc(I);

ergab eine Zeit von 2869ms

mfg
Phantom1