Geburtstags-Primzahlen

Prof. Dr. Dörte Haftendorn Juni 2014  www.mahematik-verstehen.de
Erklärungen weitere Links und  Impressum in der Webversion unten.
http://www.mathematik-verstehen.de/mathe-lehramt/arithmetik/geburtstag.htm

Manipulate[FactorInteger[ToExpression[geb]],
Style["Trage deinen Geburtstag sechstellig in dem Kasten ein: ",12],
{{geb,250348,Geburtstag},10000,400000,1,Appearance->{"Open"}},
Style["Das ist die Primfaktorzerlegung deines Geburtages: ",14,Bold],
Style["(Angegeben ist jeder Primfaktor und sein Exponent) ",12],

FrameLabel->{{None,"Info\nunten"},{"www.mathematik-verstehen.de","Geburtstags-Primzahlen"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]