# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a330974 Showing 1-1 of 1 %I A330974 #8 Jul 07 2021 09:26:34 %S A330974 1,6,12,64,24,256,48,512,60,96,0,2048,0,144,210,120,216,180,384,0,288, %T A330974 16384,0,0,240,0,432,0,0,0,420,65536,1536,360,0,0,0,480,0,900,0,864, %U A330974 3072,1152,0,1296,0,0,0,0,0,2310,0,524288,6144,960,720,0,840,0,2304 %N A330974 Least positive integer with n factorizations into distinct factors > 1, and 0 if no such number exists. %t A330974 nn=10; %t A330974 fam[n_]:=fam[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]]; %t A330974 nds=Length/@Array[Select[fam[#],UnsameQ@@#&]&,2^nn]; %t A330974 Table[If[#=={},0,#[[1,1]]]&[Position[nds,i]],{i,nn}] %Y A330974 All nonzero terms belong to A025487. %Y A330974 Strict factorizations are A045778, with image A045779. %Y A330974 The version with zeros removed is A045780. %Y A330974 The non-strict version is A330973. %Y A330974 Positions of zeros are A330975. %Y A330974 The sorted version is A330997. %Y A330974 Cf. A001055, A001222, A033833, A045782, A045783, A318286, A328966, A330972. %K A330974 nonn %O A330974 1,2 %A A330974 _Gus Wiseman_, Jan 06 2020 %E A330974 More terms from _Jinyuan Wang_, Jul 07 2021 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE