a Maple question

[Emeric Deutsch]

Thanks a lot for your responses. They helped me to come up with 

> f:=proc(n) a:=op(2,ifactors(n)): [seq(seq(a[i][1],
j=1..a[i][2]),i=1..nops(a))] end:

Example:

> f(16200);

                     [2, 2, 2, 3, 3, 3, 3, 5, 5]
Thanks again.
Emeric


On Sat, 1 May 2004, Emeric Deutsch wrote:

> Dear Seqfans,
> I wonder whether this is an appropriate topic.
> Let me formulate my simple question on an example.
> The command ifactor(72) yields 2^3 3^2.
> I would like to get [2,2,2,3,3].
> Any idea? Thanks.
> Emeric