Nächste Primzahl

Prof. Dr. Dörte Haftendorn Okt 2014  www.mahematik-verstehen.de
http://www.mathematik-sehen-und-verstehen.de/02krypto.htm
http://www.mathematik-verstehen.de/krypto/krypto.htm

Manipulate[NextPrime[z],
Style["Bestimme die nächst größere Primzahl, NextPrime[z]",14],
{{z,123456767890123456789,"Nächste Primzahl"}},
Style["Ergebnis:",14,Bold],

FrameLabel->{{None,None},{"www.mathematik-sehen-und-verstehen.de","Nächst größere Primzahl:  "}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]