显示找到的2个结果中的1-2个。
第页1
1, 4, 8, 12, 16, 24, 36, 48, 72, 96, 120, 144, 192, 216, 240, 288, 360, 432, 480, 576, 720, 960, 1080, 1152, 1440, 2160, 2880, 4320, 5040, 5760, 7200, 8640, 10080, 11520, 12960, 14400, 15120, 17280, 20160, 25920, 28800, 30240, 34560
链接
金俊奎,关于高因子数《数论杂志》,第72卷,第1期(1998年),第76-91页。
阿诺德·克诺普马赫和迈克尔·梅斯,整数的有序和无序分解《数学杂志》,第10卷,第1期(2006年),第72-89页。
例子
初始条款的分解:
() (4) (8) (12) (16) (24) (36) (48)
(2*2) (2*4) (2*6) (2*8) (3*8) (4*9) (6*8)
(2*2*2) (3*4) (4*4) (4*6) (6*6) (2*24)
(2*2*3) (2*2*4) (2*12) (2*18) (3*16)
(2*2*2*2) (2*2*6) (3*12) (4*12)
(2*3*4) (2*2*9) (2*3*8)
(2*2*2*3) (2*3*6) (2*4*6)
(3*3*4) (3*4*4)
(2*2*3*3) (2*2*12)
(2*2*2*6)
(2*2*3*4)
(2*2*2*2*3)
(结束)
数学
nn=100;
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
qv=表格[长度[facs[n]],{n,nn}];
表[位置[qv,i][[1,1]],{i,qv//.{foe____,x_,y_,afe___}/;x> =y:>{foe,x,afe}}](*古斯·怀斯曼2020年1月13日*)
1, 2, 3, 5, 7, 9, 10, 16, 18, 25, 34, 38, 57, 59, 67, 70, 91, 100, 117, 141, 161, 193, 253, 296, 306, 426, 552, 685, 692, 960, 1060, 1067, 1216, 1220, 1589, 1591, 1912, 2029, 2157, 2524, 2886, 3249, 3616, 3875, 4953, 5147, 5285, 5810, 6023, 6112, 6623, 8129
链接
金俊奎,关于高因子数《数论杂志》,第72卷,第1期(1998年),第76-91页。
例子
初始记录及其严格因子分解的代表:
() (6) (12) (24) (48) (60) (96) (120)
(2*3) (2*6) (3*8) (6*8) (2*30) (2*48) (2*60)
(3*4) (4*6) (2*24) (3*20) (3*32) (3*40)
(2*12) (3*16) (4*15) (4*24) (4*30)
(2*3*4) (4*12) (5*12) (6*16) (5*24)
(2*3*8) (6*10) (8*12) (6*20)
(2*4*6) (2*5*6) (2*6*8) (8*15)
(3*4*5) (3*4*8) (10*12)
(2*3*10) (2*3*16) (3*5*8)
(2*4*12) (4*5*6)
(2*3*20)
(2*4*15)
(2*5*12)
(2*6*10)
(3*4*10)
(2*3*4*5)
数学
nn=1000;
strfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}];
qv=表格[长度[strfacs[n]],{n,nn}];
并集[qv//.{foe____,x_,y_,afe___}/;x>y:>{foe,x,afe}]
黄体脂酮素
(Python)
定义事实(num):
….ret=[]
….温度=数值
….div=2
….当温度>1时:
当温度%div==0时:
…………..回复附件(div)
…………温度//=div
……..div+=1
….返回ret
定义所有分区(lst):
….如果lst:
…….x=第一[0]
对于所有分区(lst[1:])中的分区:
…………屈服[x]+分区
…………..对于i,_在枚举(分区)中:
………….分区[i]*=x
………….屈服分区
………….分区[i]//=x
….其他:
……..产量[]
最佳=0
术语=[0]
q=2
当长度(术语)<100时:
….total_set=set()
……因素=事实(q)
….total_set=集合(如果len(x)==len(集合(x)),则为all_partitions(factors)中x的元组(排序(x)
……如果len(total_set)>最佳:
……..最佳=长度(total_set)
……….条款.附录(最佳)
……..打印(q,最佳)
….q+=2#仅检查偶数
打印(术语)
搜索在0.006秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月22日02:02。包含376090个序列。(在oeis4上运行。)
|