       Re: FactorInteger

• To: mathgroup at smc.vnet.net
• Subject: [mg14423] Re: [mg14412] FactorInteger
• From: "Carl K.Woll" <carlw at fermi.phys.washington.edu>
• Date: Wed, 21 Oct 1998 03:32:20 -0400
• Organization: Department of Physics
• References: <199810181910.PAA02330@smc.vnet.net.>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi Alan,

One idea is to use HoldForm. For example,

HoldForm[2^2 3^3]

displays as

2^2 3^3

Thus, one could make a function, called HoldFactorInteger, as in the
following:

HoldFactorInteger[a_Integer]:=
Apply[Times,Apply[Power,HoldForm[Evaluate[FactorInteger[a]]],{2}],1]

The idea of the function is to wrap HoldForm around the output of
FactorInteger, but without the Evaluate, the FactorInteger function
won't evaluate. The output of FactorInteger is a list of lists, so the
Apply function replaces the inner lists with Power and the outer list
with Power.

Carl Woll
Dept of Physics
U of Washington

awhopper at hermes.net.au wrote:

> Dear Math Group,
>
> Concerning the Prime Factors of composite integers ;
>
> e.g;
>
> In := 2^4 3^3 4^2
>
> Out = 6912
>
> In := FactorInteger[%]
>
> Out = {{2,4},{3,3},{4,2}}
>
> 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

```

• Prev by Date: Re: Triangle function
• Next by Date: Re: Adding equations