%I#5 2020年1月7日09:08:48
%第1,6,12,24,48,60,64,961201441802102102140256288360384420页,
%电话:4324805127208408649009601080115212601296144015361680,
%电话:172818002048216023042310252025922880307233603456320
%N包含最小数的排序列表,每个可能的非零因子分解为不同因子>1。
%e n=1..9时a(n)的严格因式分解。
%电子邮箱:6 12 24 48 60 64 96 120
%e 2*3 2*6 3*8 6*8 2*30 2*32 2*48 2*60
%e 3*4 4*6 2*24 3*20 4*16 3*32 3*40
%e 2*12 3*16 4*15 2*4*8 4*24 4*30
%e 2*3*4 4*12 5*12 6*16 5*24
%e 2*3*8 6*10 8*12 6*20
%e 2*4*6 2*5*6 2x6*8 8*15
%e 3*4*5 3*4x8 10*12
%e 2*3*10 2*3x16 3*5*8
%e 2*4*12 4*5*6
%e 2*3*20
%e 2*4*15
%e 2*5*12
%e 2*6*10
%e 3*4*10
%e 2*3*4*5
%t nn=1000;
%t strfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}];
%t nds=长度/@Array[strfacs,nn];
%t表格[位置[nds,i][[1,1]],{i,第一个/@Gather[nds]}]
%Y所有条款均属于A025487。
%Y严格因子分解是A045778,图像为A045779。
%Y未排序的版本是A045780。
%Y非限制型为A330972。
%Y具有n个严格因子分解的最小数是A330974。
%Y参见A001055、A001222、A033833、A045782、A318286、A325238、A330935、A330973、A330995。
%K nonn公司
%O 1,2号机组
%A _Gus Wiseman_,2020年1月6日
|