Kryptografie, Primzahlen
Prof. Dr. Dörte Haftendorn, Mathematik mit MuPAD 4
www.mathematik-sehen-und-verstehen.de
Buch: Mathematik sehen und verstehen Seite 14
####################################################################
Die Primzahlen bis 1013
f:=x->nextprime(x+1);
li:=(f@@k)(1)$ k=1..20;
li:=(f@@k)(li[20])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
li:=(f@@k)(li[15])$ k=1..15;
Die Primzahlen ersten 100 Primzahlen
li:=[[k,(f@@k)(1)] $k=1..100]
prim:=plot::Listplot(li,x=1..100, ViewingBoxYRange=0..600, PointSize=1, GridVisible=TRUE):
plot(prim)
Die Lücken zwischen den Primzahlen sind nicht vorhersagbar
lueck:=([[k,(f@@(k+1))(1)-(f@@(k))(1)] $ k=1..400]);
plot(plot::Listplot(lueck))