%I#8 2021年7月7日09:26:34
%S 1,6,12,64,24256,48512,60,96,02048,0144210120216180384,0288,
%电话:16384,0,0240,0432,0,0420655361536360,0,0,0.480,0900,0864,
%电话:30721152,01296,0,0,0,02310,05242886144960720,0840,02304
%N最小正整数,将N个因子分解为不同因子>1,如果不存在这样的数,则为0。
%t nn=10;
%t fam[n_]:=fam[n]=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
%t nds=长度/@Array[Select[fam[#],UnsameQ@@#&]&,2^nn];
%t表格[如果[#=={},0,#[[1,1]]]&[位置[nds,i]],{i,nn}]
%Y所有非零项都属于A025487。
%Y严格因子分解是A045778,图像为A045779。
%Y删除零的版本是A045780。
%Y非限制型为A330973。
%Y零位为A330975。
%Y排序版本为A330997。
%Y参见A001055、A001222、A033833、A045782、A04578、A318286、A328966、A330972。
%K nonn公司
%O 1,2号机组
%A _Gus Wiseman_,2020年1月6日
%E更多条款,来自金元网,2021年7月7日
|