Re: All Factors of a number
- To: mathgroup at smc.vnet.net
- Subject: [mg53035] Re: [mg53025] All Factors of a number
- From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
- Date: Tue, 21 Dec 2004 05:19:10 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On 20 Dec 2004, at 20:34, Ulrich Sondermann wrote:
> Following is a test code that I am trying to get down to a set of
> instructions that will allways put all of the factors of a number in a
> table
> or list.
> bt contains all of the factors if I multiply each list entry, however I
> cannot accomplish that with a single line, as an example I have broken
> into
> the three lists needed for this example. The results of each "Times@@"
> is
> what I am after all placed into one table. All of my attempts have
> proved
> disasterous, I am new to Mathematica and could do this with nested
> loops in
> any programming language, but this has me stumped.
> Thanx!
>
> <<DiscreteMath`Combinatorica`
> bt=Table[KSubsets[{1,2,3,5},a],{a,3}]
> {{{1},{2},{3},{5}},{{1,2},{1,3},{1,5},{2,3},{2,5},{3,5}},{{1,2,3},{1,2,
> 5},{1
> ,3,5},{2,3,5}}}
> bt1=bt[[1,All]]
> {{1},{2},{3},{5}}
> Table[Times@@bt1[[a]],{a,4}]
> {1,2,3,5}
> bt2=bt[[2,All]]
> {{1,2},{1,3},{1,5},{2,3},{2,5},{3,5}}
> Table[Times@@bt2[[a]],{a,6}]
> {2,3,5,6,10,15}
> bt3=bt[[3,All]]
> {{1,2,3},{1,2,5},{1,3,5},{2,3,5}}
> Table[Times@@bt3[[a]],{a,4}]
> {6,10,15,30}
>
Are you trying to define something like:
Divisors[30]
{1,2,3,5,6,10,15,30}
??
Andrzej Kozlowski
Chiba, Japan
http://www.akikoz.net/~andrzej/
http://www.mimuw.edu.pl/~akoz/