Re: ExponentFunction
- To: mathgroup at smc.vnet.net
- Subject: [mg24489] Re: [mg24451] ExponentFunction
- From: BobHanlon at aol.com
- Date: Wed, 19 Jul 2000 01:22:01 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 7/18/2000 2:03:01 AM, greg at mira.net writes:
>I just thought of another quick question I'd like to throw in while I'm
>in the newsreader: I'm having trouble composing an elegant functional way
>of
>converting the results of FactorInteger into a form where all the factors
>(with multiples) are strung together dot separated (example
>2.2.2.3.3.43.1181). Any ideas?
x = 2*2*2*3*3*43*1181;
Dot @@ Flatten[Table[#[[1]], {#[[2]]}] & /@ FactorInteger[x]]
2 . 2 . 2 . 3 . 3 . 43 . 1181
Times @@ % == x
True
Bob Hanlon