搜索: a356223-编号:a35623
|
|
|
|
1, 2, 1, 3, 1, 3, 1, 4, 1, 2, 1, 5, 1, 2, 1, 5, 1, 4, 1, 3, 1, 2, 1, 7, 1, 2, 1, 3, 1, 4, 1, 6, 1, 2, 1, 7, 1, 2, 1, 4, 1, 3, 1, 3, 1, 2, 1, 9, 1, 2, 1, 3, 1, 5, 1, 4, 1, 2, 1, 7, 1, 2, 1, 7, 1, 3, 1, 3, 1, 2, 1, 10, 1, 2, 1, 3, 1, 3, 1, 5, 1, 2, 1, 5, 1, 2, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
|
|
链接
|
|
|
例子
|
n=1..24的a(n)无间隙除数:
1 2 1 4 1 6 1 8 1 2 1 12 1 2 1 16 1 18 1 4 1 2 1 24
1 2 2 4 1 6 1 8 6 2 1 12
1 1 2 4 4 2 1 8
1 2 2 1 6
1 1 4
2
1
例如,12的除数是{1,2,3,4,6,12},其中{1,2,4,6,12}属于A055932号,则a(12)=5。
|
|
数学
|
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
normQ[m_]:=m=={}||并集[m]==范围[Max[m]];
表[Length[Select[Divisors[n],normQ[primeMS[#]]&]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A000005号,A001222号,A028334号,A029709号,A055874美元,A056239号,A070824号,A112798号,A119313号,A137921号,A287170型,A289509型,A356223型.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, 3, 2, 4, 2, 4, 3, 3, 2, 6, 2, 3, 4, 5, 2, 6, 2, 4, 3, 3, 2, 8, 3, 3, 4, 4, 2, 7, 2, 6, 3, 3, 4, 9, 2, 3, 3, 5, 2, 5, 2, 4, 6, 3, 2, 10, 3, 4, 3, 4, 2, 8, 3, 5, 3, 3, 2, 10, 2, 3, 4, 7, 3, 5, 2, 4, 3, 5, 2, 12, 2, 3, 6, 4, 4, 5, 2, 6, 5, 3, 2, 7, 3, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
|
|
链接
|
|
|
例子
|
n=1、2、4、6、12、16、24、30、36、48、72、90的a(n)计数除数:
1 2 4 6 12 16 24 30 36 48 72 90
1 2 3 6 8 12 15 18 24 36 45
1 2 4 4 8 6 12 16 24 30
1 3 2 6 5 9 12 18 18
2 1 4 3 6 8 12 15
1 3 2 4 6 9 9
2 1 3 4 8 6
1 2 3 6 5
1 2 4 3
1 3 2
2 1
1
|
|
数学
|
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
nogapQ[m_]:=m=={}||并集[m]==范围[Min[m],Max[m]];
表[Length[Select[Divisors[n],nogapQ[primeMS[#]]&]],{n,100}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 6, 11, 72, 42, 47, 62, 295, 180, 259, 297, 327, 446, 462, 650, 1315, 1059, 1532, 4052, 2344, 3732, 3861, 8805, 7234, 4754, 2810, 4231, 14124, 5949, 9834, 17200, 10229, 19724, 25248, 15927, 30765, 42673, 28593, 24554, 50523, 44227, 44390, 29040, 89715, 47350
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
主要差距(A001223号)是连续质数之间的差异。它们开始于:1,2,2,4,2,4,6。。。
|
|
链接
|
|
|
数学
|
nn=1000;
gaps=差异[Array[Prime,nn]];
mnrm[s_]:=如果[Min@@s==1,mnrm[DeleteCase[s-1,0]]+1,0];
表[位置[gaps,2*n][[2,1]],{n,mnrm[Select[Range[nn],Length[Position[gapss,2*#]]>=2&]]}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2、4、3、9、6、5、24、11、8、7、34、72、15、12、10、46、42、77、16、14、13、30、47、53、79、18、19、17、282、62、91、61、87、21、22、20、99、295、66、97、68、92、23、25、26、154、180、319、137、114、80、94、32、27、28、189、259、205、331、146、121、82、124、36、29、33
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
主要差距(A001223号)是连续素数之间的差值。它们开始于:1,2,2,4,2,4,6。。。
这是大于1的正整数的置换。
|
|
链接
|
|
|
例子
|
数组开始:
k=1 k=2 k=3 k=4 k=5 k=6 k=7 k=8 k=9
n=1:2 3 5 7 10 13 17 20 26
n=2:4 6 8 12 14 19 22 25 27
n=3:9 11 15 16 18 21 23 32 36
n=4:24 72 77 79 87 92 94 124 126
n=5:34 42 53 61 68 80 82 101 106电话
n=6:46 47 91 97 114 121 139 168 197
电话:7:30 62 66 137 146 150 162 223 250
n=8:282 295 319 331 335 378 409 445 476
编号:9:99 180 205 221 274 293 326 368 416
|
|
数学
|
gapa=差异[Array[Prime,10000]];
表[位置[gapa,2*(k-n+1)][[n,1]],{k,6},{n,k}]
|
|
交叉参考
|
|
|
关键字
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.009秒内完成
|