Primzahlen bis ins Unendliche

[GuenterS]

Zitat von glkgereon:

Zitat von Airblader:

Wurde das nun nicht schon 3-4 Mal erklärt?

Hier gehts inzwischen auch mehr um das Ermitteln einer hoheh Primzahl, nicht die höchste

air

dieses Verfahren ermöglichst dies aber doch...

In Kombination mit der DEC ist es doch super-einfach...oder seh ich da was falsch?

PseudoCode:

Delphi-Quellcode:

While not Abgebrochen do
  begin
  AktPrime:=(AktPrime-1)*AktPrime+1;
  Output(AktPrime);
  end;

Überlegung:
Eine neue Primzahl kann man berechnen aus der letzten primzahl multipliziert mit derm Produkt aller Primzahlen davor...
Gleichzeitig ist aber das Produkt aller davor gleich der aktuellen primzahl-1
somit sei die neue primzahl die alte mal die alte minus eins.

mit dem Startwert 2 gäbe das:
(2-1)*2+1 = 3
(3-1)*3+1 = 7
(7-1)*7+1 = 43

sind zwar längst nicht alle (da fehlen aber sehr viele ) aber es sind offensichtlich primzahlen....

Und das machst Du bis du eine Primzahl hast, welche aus 10 Millionen Stellen besteht.