Re: The prime factors of n.

• To: mathgroup at smc.vnet.net
• Subject: [mg32726] Re: The prime factors of n.
• From: "Avraham Shinnar" <as1619 at columbia.edu>
• Date: Thu, 7 Feb 2002 05:10:22 -0500 (EST)
• Organization: Columbia University
• References: <a3qqjj\$27t\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```How about this:

FactorIntegerToList[n_Integer] :=
Flatten[Table [First[#], Rest[#] // Evaluate] & /@ FactorInteger[n]]

-- Avraham Shinnar

"Robert G. Wilson v" <rgwv at kspaint.com> wrote in message
news:a3qqjj\$27t\$1 at smc.vnet.net...
> Hello all,
>
>         I wish to receive a list of prime factors of n not in the form
> returned by FactorInteger. Instead I want only the primes the number of
> times they appear. As an example I will use 72. FactorInteger[72] gives
> { {2,3}, {3,2} }. I wish the list would read { 2, 2, 2, 3, 3 }. Is the
> following the best that I can do? f[n_Integer] := Module[{a =
> FactorInteger[n], b = {}}, While[Length[a] > 0, Do[b = Append[b, a[[1,
> 1]]], {a[[1, 2]]}]; a = Drop[a, 1]]; b] .
>
> See
>
http://www.research.att.com/cgi-bin/access.cgi/as/njas/sequences/eisA.cgi?An
um=037276
>
> Sincerely yours,
>
> Robert G. "Bob" Wilson, V
>
>

```

• Prev by Date: Re: The prime factors of n.
• Next by Date: Re: The prime factors of n.
• Previous by thread: Re: The prime factors of n.
• Next by thread: Re: The prime factors of n.