显示找到的9个结果中的1-9个。
第页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_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[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, 4, 8, 12, 16, 24, 36, 60, 48, 128, 72, 96, 120, 256, 180, 144, 192, 216, 420, 240, 1024, 384, 288, 360, 2048, 432, 480, 900, 768, 840, 576, 1260, 864, 720, 8192, 960, 1080, 1152, 4620, 1800, 3072, 1680, 1728, 1920, 1440, 32768, 2304, 2592, 6144
例子
n=1、4、8、12、16、24、36、60、48的因子分解:
{} 4 8 12 16 24 36 60 48
2*2 2*4 2*6 2*8 3*8 4*9 2*30 6*8
2*2*2 3*4 4*4 4*6 6*6 3*20 2*24
2*2*3 2*2*4 2*12 2*18 4*15 3*16
2*2*2*2 2*2*6 3*12 5*12 4*12
2*3*4 2*2*9 6*10 2*3*8
2*2*2*3 2*3*6 2*5*6 2*4*6
3*3*4 3*4*5 3*4*4
2*2*3*3 2*2*15 2*2*12
2*3*10 2*2*2*6
2*2*3*5 2*2*3*4
2*2*2*2*3
(结束)
将n个因子分解为因子>1的最小正整数,如果不存在这样的数字,则为0。
+10 26
1, 4, 8, 12, 16, 0, 24, 0, 36, 0, 60, 48, 0, 0, 128, 72, 0, 0, 96, 0, 120, 256, 0, 0, 0, 180, 0, 0, 144, 192, 216, 0, 0, 0, 0, 420, 0, 240, 0, 0, 0, 1024, 0, 0, 384, 0, 288, 0, 0, 0, 0, 360, 0, 0, 0, 2048, 432, 0, 0, 0, 0, 0, 0, 480, 0, 900, 768, 0, 0, 0, 0, 0
数学
nn=10;
fam[n_]:=fam[n]=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]}]];
nds=长度/@Array[fam[#]&,2^nn];
表[如果[#=={},0,#[[1,1]]&[位置[nds,i]],{i,nn}]
交叉参考
囊性纤维变性。A001055号,A001222号,A002033号,A007716号,A045778号,A045779号,A330935型,A330992型,A330997型,A330998型,A346426飞机.
1, 1, 2, 2, 3, 4, 5, 7, 5, 7, 9, 12, 11, 11, 16, 19, 21, 15, 29, 26, 30, 15, 31, 38, 22, 47, 52, 45, 36, 57, 64, 30, 77, 98, 67, 74, 97, 66, 105, 42, 109, 118, 92, 109, 171, 97, 141, 162, 137, 165, 56, 212, 181, 52, 198, 189, 289, 139, 250, 257, 269, 254, 77, 382, 267
链接
金俊奎,关于高因子数,《数论杂志》,第72卷,第1期(1998年),第76-91页。
例子
a(1)=1到a(11)=9的因式分解:
{} 2 4 6 8 12 16 24 30 32 36
2*2 2*3 2*4 2*6 2*8 3*8 5*6 4*8 4*9
2*2*2 3*4 4*4 4*6 2*15 2*16 6*6
2*2*3 2*2*4 2*12 3*10 2*2*8 2*18
2*2*2*2 2*2*6 2*3*5 2*4*4 3*12
2*3*4 2*2*2*4 2*2*9
2*2*2*3 2*2*2*2*2 2*3*6
3*3*4
2*2*3*3
(结束)
数学
c[1,r]:=c[1],r]=1;c[n_,r_]:=c[n,r]=模[{d,i},d=选择[Divisors[n],1<#<=r&];总和[c[n/d[i]],d[[i]]],{i,1,长度[d]}]];映射[c[#,#]&,Union@Table[Times@@MapIndexed[If[n==1,1,质数[First@#2]]^#1&,Sort[FactorInteger[n][[All,-1]],Greater]],{n,乘积[Prime@i,{i,6}]](*迈克尔·德弗利格2017年7月10日,之后迪安·希克森在A001055号*)
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[n]]}]];
长度/@facs/@First/@GatherBy[Range[1000],如果[#==1,{},排序[Last/@FactorInteger[#]]&&](*古斯·怀斯曼2020年1月13日*)
交叉参考
囊性纤维变性。A033833号,A045778号,A045783号,A070175号,A181821号,A325238型,A330972型,A330973型,A330976型,A330989型,A330990型,A330998型,A331050型.
将素数(n)分解为因子>1的最小正整数,如果不存在这样的整数,则为0。
+10 8
4, 8, 16, 24, 60, 0, 0, 96, 0, 144, 216, 0, 0, 0, 288, 0, 0, 0, 768, 0, 0, 0, 0, 0, 864, 8192, 0, 0, 1080, 0, 0, 0, 1800, 3072, 0, 0, 0, 0, 0, 0, 0, 2304, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3456, 0, 3600, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24576
例子
初始正项的因子分解为:
4 8 16 24 60 96
2*2 2*4 2*8 3*8 2*30 2*48
2*2*2 4*4 4*6 3*20 3*32
2*2*4 2*12 4*15 4*24
2*2*2*2 2*2*6 5*12 6*16
2*3*4 6*10 8*12
2*2*2*3 2*5*6 2*6*8
3*4*5 3*4*8
2*2*15 4*4*6
2*3*10 2*2*24
2*2*3*5 2*3*16
2*4*12
2*2*3*8
2*2*4*6
2*3*4*4
2*2*2*12
2*2*2*2*6
2*2*2*3*4
2*2*2*2*2*3
评论
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号n的逆质影是其质指数是n的质指数的最小数。
例子
() (2) (4) (6) (12) (72)
(2*2) (2*3) (2*6) (8*9)
(3*4) (2*36)
(2*2*3) (3*24)
(4*18)
(6*12)
(2*4*9)
(2*6*6)
(3*3*8)
(3*4*6)
(2*2*18)
(2*3*12)
(2*2*2*9)
(2*2*3*6)
(2*3*3*4)
(2*2*2*3*3)
数学
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[n]]}]];
nrmptn[n_]:=联接@@MapIndexed[表[#2[[1]],{#1}]&,如果[n==1,{},展平[Cases[FactorInteger[n]//反转,{p_,k_}:>表[PrimePi[p],{k}]]];
选择[Range[100],IntegerQ[Log[2,Length[facs[Times@@Prime/@nrmptn[#]]]&]
交叉参考
囊性纤维变性。A033833号,A045778号,A045783号,A181821号,A305936型,A318283型,A318284型,A330972型,A330973型,A330976型,A330998型,A331022飞机.
数k,使得多重数为k的素数指数的多集具有素数个多集划分。
+10 5
3, 4, 5, 7, 8, 10, 11, 12, 13, 21, 22, 25, 33, 38, 41, 45, 46, 49, 50, 55, 57, 58, 63
评论
此多集(第k行,共A305936型)通常与k的素数指标的多集不同。例如,12的素数指数为{1,1,2},而重数为{1,1,2}的多集为{1,2,3}。
也指逆素数阴影具有素数分解的数。k的素数指数是一个数m,使得素数(m)除以k。k的多素数指数集是A112798号k的逆素数阴影是素数指数为k的素数指数的最小数。
例子
n=1..6的多集分区:
{11} {12} {111} {1111} {123} {1112}
{1}{1} {1}{2} {1}{11} {1}{111} {1}{23} {1}{112}
{1}{1}{1} {11}{11} {2}{13} {11}{12}
{1}{1}{11} {3}{12} {2}{111}
{1}{1}{1}{1} {1}{2}{3} {1}{1}{12}
{1}{2}{11}
{1}{1}{1}{2}
n=1..8的因式分解:
4 6 8 16 30 24 32 60
2*2 2*3 2*4 2*8 5*6 3*8 4*8 2*30
2*2*2 4*4 2*15 4*6 2*16 3*20
2*2*4 3*10 2*12 2*2*8 4*15
2*2*2*2 2*3*5 2*2*6 2*4*4 5*12
2*3*4 2*2*2*4 6*10
2*2*2*3 2*2*2*2*2 2*5*6
3*4*5
2*2*15
2*3*10
2*2*3*5
数学
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[n]]}]];
unsh[n_]:=Times@@MapIndexed[Prime[#2[[1]]^#1&,Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
选择[Range[30],PrimeQ[Length[facs[unsh[#]]]&]
交叉参考
囊性纤维变性。A033833号,A045783号,A056239号,A181819号,A181821号,A305936型,A318286型,A325755型,A330972型,A330973型,A330998型.
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_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[n]]}]];
表[长度[facs[n]],{n,100}]//。{foe____,x,y,afe__}/;x> =y:>{foe,x,afe}(*古斯·怀斯曼2020年1月13日*)
的因子分解数A055932号(n) ,n′独特无序素数签名的最不代表性,因子>1。
+10 2
1, 1, 2, 2, 3, 4, 5, 4, 7, 5, 7, 9, 12, 7, 11, 11, 16, 11, 19, 16, 21, 15, 29, 11, 12, 26, 30, 15, 31, 38, 22, 21, 47, 26, 29, 52, 45, 36, 57, 26, 64, 19, 30, 52, 77, 52, 36, 57, 98, 21, 67, 38, 74, 97, 66, 105, 47, 42, 36, 109, 118, 98, 92, 109, 52, 171, 30
例子
a(1)=1到a(11)=7的因式分解:
{} 2 4 6 8 12 16 18 24 30 32
2*2 2*3 2*4 2*6 2*8 2*9 3*8 5*6 4*8
2*2*2 3*4 4*4 3*6 4*6 2*15 2*16
2*2*3 2*2*4 2*3*3 2*12 3*10 2*2*8
2*2*2*2 2*2*6 2*3*5 2*4*4
2*3*4 2*2*2*4
2*2*2*3 2*2*2*2*2
数学
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisions[n]]}]];
长度@*facs/@First/@GatherBy[Range[1500],如果[#==1,{},Last/@FactorInteger[#]]&]
交叉参考
囊性纤维变性。A025487号,A033833号,A045778号,A045783号,A070175号,A181821号,A325238型,A330972型,A330973型,A330976型,A330989型,A330990型,A330998型,A331050型.
搜索在0.008秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月22日13:01 EDT。包含376114个序列。(在oeis4上运行。)
|