显示找到的5个结果中的1-5个。
第页1
1, 6, 12, 24, 48, 60, 96, 120, 180, 240, 360, 480, 720, 840, 1080, 1260, 1440, 1680, 2160, 2520, 3360, 4320, 5040, 7560, 8640, 10080, 15120, 20160, 25200, 30240, 40320, 45360, 50400, 55440, 60480, 75600, 90720, 100800, 110880, 120960, 151200, 181440, 221760
链接
金俊奎,关于高因子数《数论杂志》,第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,i][[1,1]],{i,并集[qv//.{foe____,x_,y_,afe___}/;x>y:>{foe,x,afe}]}]
对k进行编号,使k分解为不同因子>1的次数为素数。
+10 5
6, 8, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 65, 66, 68, 69, 70, 74, 75, 76, 77, 78, 80, 81, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 98, 99, 100, 102
例子
所选术语的严格因子分解:
(6) (12) (24) (48) (216)
(2*3) (2*6) (3*8) (6*8) (3*72)
(3*4) (4*6) (2*24) (4*54)
(2*12) (3*16) (6*36)
(2*3*4) (4*12) (8*27)
(2*3*8) (9*24)
(2*4*6) (12*18)
(2*108)
(3*8*9)
(4*6*9)
(2*3*36)
(2*4*27)
(2*6*18)
(2*9*12)
(3*4*18)
(3*6*12)
(2*3*4*9)
数学
strfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}];
选择[Range[100],PrimeQ[Length[strfacs[#]]&]
交叉参考
囊性纤维变性。A001318号,A045780型,A318286型,A328966型,A330992型,A330993型,A330997型,A331023型/A331024型,A331050型,A331051型,A331200型,A331232飞机.
1, 2, 3, 4, 5, 7, 9, 12, 16, 19, 21, 29, 30, 31, 38, 47, 52, 57, 64, 77, 98, 105, 109, 118, 171, 212, 289, 382, 392, 467, 484, 662, 719, 737, 783, 843, 907, 1097, 1261, 1386, 1397, 1713, 1768, 2116, 2179, 2343, 3079, 3444, 3681, 3930, 5288, 5413, 5447
链接
金俊奎,关于高因子数《数论杂志》,第72卷,第1期(1998年),第76-91页。
例子
高度可分解数的a(1)=1到a(8)=12分解:
() (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)
(结束)
数学
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[长度[facs[n]],{n,100}]//。{foe___,x_,y_,afe____}/;x> =y:>{foe,x,afe}(*古斯·怀斯曼2020年1月13日*)
对k进行编号,使k分解为不同因子>1的次数是奇数。
+10 三
1, 2, 3, 4, 5, 7, 9, 11, 12, 13, 17, 18, 19, 20, 23, 24, 25, 28, 29, 30, 31, 32, 36, 37, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 60, 61, 63, 66, 67, 68, 70, 71, 72, 73, 75, 76, 78, 79, 80, 83, 84, 88, 89, 90, 92, 97, 98, 99, 100, 101, 102
数学
strfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}];
选择[Range[100],OddQ[Length[strfacs[#]]&]
对k进行编号,使k分解为不同因子>1的次数为偶数。
+10 三
6, 8, 10, 14, 15, 16, 21, 22, 26, 27, 33, 34, 35, 38, 39, 46, 51, 55, 57, 58, 62, 64, 65, 69, 74, 77, 81, 82, 85, 86, 87, 91, 93, 94, 95, 96, 106, 111, 115, 118, 119, 120, 122, 123, 125, 129, 133, 134, 141, 142, 143, 144, 145, 146, 155, 158, 159, 160, 161, 166
数学
strfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}];
选择[Range[100],EvenQ[Length[strfacs[#]]&]
交叉参考
囊性纤维变性。A001318号,A045780型,A045783号,A318286型,A328966型,A330973型,A330991型,A330997型,A331022飞机,A331023型/A331024型,A331050型,A331200型,A331232飞机.
搜索在0.006秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月21日22:57 EDT。包含376090个序列。(在oeis4上运行。)
|