DMUG-Archiv 2001

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Grosse Primzahlen, Re: FactorInteger v. 8.1.2001

Auch grosse Primzahlen koennen leicht mit Mathematica aufgestellt
werden; dabei wird aber vorausgesetzt, dass QPrime[] 100 % verlaesslich ist
(was ich nicht ueberpruefen kann).

Man startet von einer Zufallszahl der gewuenschten Groesse
(npp = Zahl der Stellen), incremtiert um 1, solange bis QPrime[]
True gibt.

Auf meinem PowerPC mit 300 MHz dauert das einige Sekunden.

In[1]:=
liprime[npp_] := Module[{i, pn },
     For[i = Random[Integer, 10^npp {1, 9}], PrimeQ[i] == False, pn = i + 1;
      i++]; Return[pn]]

In[2]:=
liprime[150] // Timing



**************************************************************************
 ao. Prof. Dr. B. Schnizer              Institut fuer Theoretische Physik
 Tel: +43 (316) 873-8173, -8171 (Secr.) Technische Universitaet Graz
 Fax: +43 (316) 873 8678                Petersgasse 16
 e-mail: schnizer@XXXXXXX.at     A-8010 Graz
 http://www.itp.tu-graz.ac.at/schnizer   Austria/Europe
https://online.tu-graz.ac.at/tug_online/tgo_org.display?CORG=2382
***************************************************************************


Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html