Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: All Factors of a number

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53048] Re: [mg53025] All Factors of a number
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Tue, 21 Dec 2004 05:19:37 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["DiscreteMath`Combinatorica`"];

bt=Table[KSubsets[{1,2,3,5},a],{a,3}];

((Times@@#)&/@#)&/@bt

{{1, 2, 3, 5}, {2, 3, 5, 6, 10, 15}, {6, 10, 15, 30}}


Bob Hanlon

> 
> From: "Ulrich Sondermann" <usondermann at earthlink.net>
To: mathgroup at smc.vnet.net
> Date: 2004/12/20 Mon AM 06:34:49 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg53048] [mg53025] All Factors of a number
> 
> 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}
> 
> 


  • Prev by Date: Re: All Factors of a number
  • Next by Date: Re: Printing Error Messages to "Messages" Window?
  • Previous by thread: Re: All Factors of a number
  • Next by thread: Re: All Factors of a number