Fundamental Mathematics from an Advanced Standpoint

Math 4303

Helmut Knaust, Department of Mathematical Sciences, UTEP, El Paso TX 79968
hknaust@utep.edu

Last Edits: 9/6/2009

Factoring Integers

PrimeFactorization[nr_Integer]:=Module[{fd},fd=FactorInteger[nr];Print[nr," = ",If [Length[fd]>1,CenterDot@@(Superscript@@@fd),(Superscript@@fd[[1]])] ]]

PrimeFactorization[99999]