Re: FactorInteger
- To: mathgroup at smc.vnet.net
- Subject: [mg14431] Re: FactorInteger
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Wed, 21 Oct 1998 03:32:26 -0400
- Organization: University of Western Australia
- References: <70dd3k$230@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
awhopper at hermes.net.au wrote:
> In Mathematica 3.0 is there anyway the output of FactorInteger can be
> modified to produce the unevaluated prime factors in the usual
> exponential form ?
>
> regards,
>
> Alan Hopper
> Katoomba, Australia
> awhopper at hermes.net.au
A discussion of this exact topic appeared in The Mathematica Journal
6(4):17-18. One way is to use HoldForm:
In[1]:= FactorInteger[12344344]
Out[1]= {{2, 3}, {71, 1}, {103, 1}, {211, 1}}
In[2]:= Times @@ Apply[HoldForm[#1^#2] & , %, 1] Out[2]=
3 1 1 1
2 71 103 211
In[3]:= ReleaseHold[%]
Out[3]= 12344344
Cheers,
Paul
____________________________________________________________________
Paul Abbott Phone: +61-8-9380-2734
Department of Physics Fax: +61-8-9380-1014
The University of Western Australia Nedlands WA 6907
mailto:paul at physics.uwa.edu.au AUSTRALIA
http://www.physics.uwa.edu.au/~paul
God IS a weakly left-handed dice player
____________________________________________________________________