least number with n divisors

vdmcc w.meeussen.vdmcc at vandemoortele.be
Wed Jan 20 14:00:04 CET 1999


the shorter the description, the nicer the sequence, no ?

 %I A000001
 %S A000001
1,2,4,6,16,12,64,30,36,48,1024,60,4096,192,144,210,65536,180,262144,
 %T A000001
240,576,3072,4194304,420,1296,12288,900,960,268435456,720,1073741824,
 %U A000001 2310,9216,196608,5184,1260,68719476736,786432,36864,1680
 %N A000001 Least number with n divisors
 %R A000001
 %O A000001 1,2
 %K A000001 nonn
 %A A000001 Wouter Meeussen (w.meeussen.vdmcc at vandemoortele.be)
 %t A000001
(Times@@(Prime[Range[Length[#]]]^Reverse[#-1]))&@Flatten[FactorInteger[n]/.{
a_Integer,b_}:>Table[a,{b}]]


w.meeussen.vdmcc at vandemoortele.be
tel  +32 (0) 51 33 21 11
fax +32 (0) 51 33 21 75






More information about the SeqFan mailing list