搜索: a325263-编号:a325265
|
|
|
|
1, 1, 2, 1, 3, 1, 4, 1, 2, 2, 5, 1, 6, 3, 4, 1, 7, 2, 8, 3, 5, 6, 9, 1, 3, 7, 2, 4, 10, 1, 11, 1, 8, 9, 10, 1, 12, 11, 12, 2, 13, 2, 14, 5, 6, 13, 15, 1, 4, 7, 14, 8, 16, 3, 15, 4, 16, 17, 17, 1, 18, 18, 9, 1, 19, 3, 19, 10, 20, 4, 20, 1, 21, 21, 11, 12, 22, 5, 22, 2, 2, 23, 23, 2, 24, 25, 26
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
这个序列的图形对于大n来说很有趣,因为它显示了多条曲线,每条曲线对应一个素数签名。例如,图中n到10^4的a(n)的六条最高曲线是(1,1)、(1,1,1),(1)、“(2,1,1)”、“(2,1)”和“(1,1,1,1)”素数签名。(1)曲线占主导地位,直到n=58;(1,1)曲线在n=1279786之前占主导地位,当(1,1,1)线与(1,1”曲线相交时。每条{1,1,…,1)曲线支配有限数量的n。
a(n)是与n具有相同素数签名的最大为n的正整数的数目。例如,a(20)=3个数字是{12,18,20}-古斯·怀斯曼2019年7月8日
|
|
链接
|
|
|
例子
|
列表如下所示:
1
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 ...
4 9 25 49 ...
6 10 14 15 21 22 26 33 34 35 38 39 46 51 ...
8 27 ...
12 18 20 28 44 45 50 52 ...
16 ...
|
|
MAPLE公司
|
p: =proc()0结束:
a: =proc(n)选项记忆;局部t;a(n-1);
t: =(1->mul(ithprime(i)^l[i],i=1..nops(l))(
排序(映射(i->i[2],ifactors(n)[2]),`>`));
p(t):=p(t)+1
结束:a(0):=0:
|
|
数学
|
prisig[n_]:=如果[n==1,{},排序[Last/@FactorInteger[n]]];
表[Count[Array[prisig,n],prisig[n]],{n,30}](*古斯·怀斯曼2019年7月8日*)
|
|
交叉参考
|
|
|
关键词
|
容易的,美好的,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A325365型
|
| 包含n的{1..n}的最大子集的数目,使得没有两个元素具有相同的排序素数签名。 |
|
+10 6
|
|
|
1, 1, 1, 2, 1, 3, 1, 4, 4, 8, 4, 20, 4, 12, 12, 48, 8, 56, 16, 64, 48, 48, 36, 324, 162, 81, 567, 378, 168, 1680, 168, 1848, 264, 264, 264, 2640, 240, 288, 288, 3456, 576, 7488, 1152, 4032, 4032, 2016, 1872, 28080, 9360, 6240, 3360, 6720, 3584, 28672, 6144
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
排序后的素数签名(A118914号)正整数的指数集在其标准因式分解为素数时是多重的。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=1到a(12)=20个子集(a=10,B=11,C=12)如下。第n列中集合的公共基数为A085089号(n) ●●●●。
1 12 13 124 145 1246 1467 12468 12689 1248A 1468B 12468C
134 1346 13468 13689 1289A 148AB 1248AC
1456 14568 15689 1348A 1689B 12689C
14678 16789 1389A 189AB 1289AC
1458年a 13468年c
1478A 1348AC(交流)
1589A 13689C
1789A 1389AC
14568立方厘米
1458AC(交流)
14678摄氏度
1468亿
1478AC(交流)
148美国广播公司
15689摄氏度
1589交流
16789摄氏度
公元前1689年
1789AC(交流)
189美国广播公司
|
|
数学
|
prisig[n_]:=如果[n==1,{},排序[Last/@FactorInteger[n]]];
表[Times@@Length/@Split[Sort[Array[prisig,n]]/Count[Array[prisig,n],prisig[n]],{n,30}]
|
|
交叉参考
|
囊性纤维变性。A001221号,A001222号,A025487号,A064839号,A085089号,A112798号,A118914号,A124010型,A181819号,A324762型,A325263型,A325365型,A326438型,A326441型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A326439型
|
| {1..n}的最大子集的数目,使得没有两个元素具有相同的排序素数签名。 |
|
+10 5
|
|
|
1, 1, 1, 2, 2, 3, 3, 4, 4, 8, 16, 20, 20, 24, 36, 48, 48, 56, 112, 128, 192, 240, 288, 324, 324, 486, 567, 1134, 1512, 1680, 1680, 1848, 1848, 2112, 2376, 2640, 2640, 2880, 3168, 3456, 6912, 7488, 14976, 16128, 20160, 24192, 26208, 28080, 28080, 37440, 43680
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0.4
|
|
评论
|
排序后的素数签名(A118914号)正整数的指数集在其标准因式分解为素数时是多重的。
|
|
链接
|
|
|
例子
|
a(0)=1到a(9)=8子集:
{}{1}{12}{12}{124}{124}{1246}{1246}{12468}{12468}
{13} {134} {134} {1346} {1346} {13468} {12689}
{145} {1456} {1456} {14568} {13468}
{1467} {14678} {13689}
{14568}
{14678}
{15689}
{16789}
|
|
数学
|
prisig[n_]:=如果[n==1,{},排序[Last/@FactorInteger[n]]];
表[Times@@(Length/@Split[Sort[Array[prisig,n]]]),{n,0,30}]
|
|
黄体脂酮素
|
(PARI)a(n)={if(n==0,1,my(M=Map());对于(i=1,n,my,f=factor(i)[,2],s=sum(k=1,#f,x^f[k]),z);映射(M,s,if(mapisdefined(M,s&z),z+1,1)));vecprod(Mat(M)[,2])))}\\安德鲁·霍罗伊德2019年8月30日
|
|
交叉参考
|
囊性纤维变性。A001221号,A001222号,A025487号,A064839号,A085089号,A112798号,A118914号,A124010型,A181819号,A324762型,A325263型,A325365型,A326438型,A326441型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A326438型
|
| {1..n}的子集的数目,使得没有两个元素具有相同的排序素数签名。 |
|
+10 4
|
|
|
1, 2, 4, 6, 12, 16, 32, 40, 80, 120, 180, 216, 432, 504, 672, 840, 1680, 1920, 2880, 3240, 4320, 5184, 6048, 6720, 13440, 17920, 20480, 30720, 38400, 42240, 84480, 92160, 184320, 207360, 230400, 253440, 506880, 549120, 599040, 648960, 973440
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
评论
|
排序后的素数签名(A118914号)正整数的指数集在其标准因式分解为素数时是多重的。
|
|
链接
|
|
|
例子
|
a(0)=1到a(5)=16子集:
{} {} {} {} {} {}
{1} {1} {1} {1} {1}
{2} {2}{2}{2}
{1,2} {3} {3} {3}
{1,2} {4} {4}
{1,3}{1,2}{5}
{1,3} {1,2}
{1,4} {1,3}
{2,4} {1,4}
{3,4} {1,5}
{1,2,4} {2,4}
{1,3,4} {3,4}
{4,5}
{1,2,4}
{1,3,4}
{1,4,5}
|
|
数学
|
prisig[n_]:=如果[n==1,{},排序[Last/@FactorInteger[n]]];
表[Length[Select[Subsets[Range[n]],UnsameQ@@prisig/@#&]],{n,0,10}]
|
|
交叉参考
|
囊性纤维变性。A001221号,A001222号,A025487号,A064839号,A085089号,A112798号,A118914号,A124010型,A181819号,A325263型,A325365型,A326439型,A326441型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|