Re: Integers networks
- To: mathgroup at smc.vnet.net
- Subject: [mg82279] Re: [mg82246] Integers networks
- From: Fred Meinberg <fredm at wolfram.com>
- Date: Wed, 17 Oct 2007 03:50:23 -0400 (EDT)
- References: <200710160726.DAA08777@smc.vnet.net>
try graph[i_] := Flatten@Array[Thread[Rule[#, FactorInteger[#][[All, 1]]]] &, i] a nice visualization is: Manipulate[GraphPlot[graph[i], SelfLoopStyle -> None], {i, 1, 100, 1}] On Oct 16, 2007, at 3:26 AM, Felice Russo wrote: > Hi > This is my first post in this forum. > I would like to generate a graph where each node is an integer > number and the edges the prime factors. For example the node 10 and > 2 will have an edge as also the nodes 10 and 5 being 2 and 5 the > prime factors of 10. > And so on.... > I know that I can generate the graph by using the adjacent matrix > but I think that there should be a more smart and easy method. Can > you help me? > > Thanks. Felice
- References:
- Integers networks
- From: Felice Russo <frusso@micron.com>
- Integers networks