|
|
A330974
|
|
Least positive integer with n factorizations into distinct factors > 1, and 0 if no such number exists.
|
|
14
|
|
|
1, 6, 12, 64, 24, 256, 48, 512, 60, 96, 0, 2048, 0, 144, 210, 120, 216, 180, 384, 0, 288, 16384, 0, 0, 240, 0, 432, 0, 0, 0, 420, 65536, 1536, 360, 0, 0, 0, 480, 0, 900, 0, 864, 3072, 1152, 0, 1296, 0, 0, 0, 0, 0, 2310, 0, 524288, 6144, 960, 720, 0, 840, 0, 2304
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
nn=10;
fam[n_]:=fam[n]=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[fam[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
nds=Length/@Array[Select[fam[#], UnsameQ@@#&]&, 2^nn];
Table[If[#=={}, 0, #[[1, 1]]]&[Position[nds, i]], {i, nn}]
|
|
CROSSREFS
|
All nonzero terms belong to A025487.
The version with zeros removed is A045780.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|