How can I get Divisors[n] from FactorInteger[n]?
- To: mathgroup at smc.vnet.net
- Subject: [mg19904] How can I get Divisors[n] from FactorInteger[n]?
- From: Julian Aguirre Estibalez <mtpagesj at lg.ehu.es>
- Date: Tue, 21 Sep 1999 02:22:43 -0400
- Organization: Universidad del Pais Vasco/Euskal Herriko Unibertsitatea
- Sender: owner-wri-mathgroup at wolfram.com
Dear Math Group,
I am doing some calculations where I need at the same time the set
of divisors and the prime factors of an integer n. I would like to get the
divisors of n from its factorization into primes. I have come up with the
following code:
ClearAll[ g, mydiv ];
g[{x__}] := Outer[ Times, x ];
SetAttributes[ mydiv, Listable ];
mydiv[n_Integer] := With[ { pf = FactorInteger[n] },
{ First/@fp, g[First/@fp^Range[0,Last/@fp]] }
]
It is more efficient than calling Divisors[n] and FactorInteger[n]
(or Select[Divisors[n],PrimeQ]) only if n has 10 or more digits. Can any
one suggest a more efficient code?
Julian Aguirre | Voice: +34 946012659
Departamento de Matematicas | Fax: +34 944648500
Universidad del Pais Vasco | Postal: Aptdo. 644, 48080 Bilbao, Spain
| email: mtpagesj at lg.ehu.es