搜索: a187106-编号:a187106
|
|
A007360型
|
| 将n划分为不同且相对成对的质数部分的数目。 (原名M0264)
|
|
+10 47
|
|
|
1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 8, 9, 10, 11, 10, 13, 17, 19, 21, 22, 21, 24, 32, 37, 37, 38, 40, 45, 55, 65, 69, 66, 64, 75, 86, 100, 113, 107, 106, 122, 145, 165, 174, 167, 162, 179, 222, 253, 255, 255, 255, 273, 328, 373, 376, 369, 377, 406, 476, 553, 569, 537, 529
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
参考文献
|
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=1到a(10)=6个分区(a=10):
(1) (2)(3)(4)(5)(6)(7)(8)(9)(A)
(21) (31) (32) (51) (43) (53) (54) (73)
(41) (321) (52) (71) (72) (91)
(61) (431) (81) (532)
(521) (531) (541)
(721)
(结束)
|
|
数学
|
$RecursionLimit=1000;b[n_,i_,s_]:=b[n,i,s]=模[{f},如果[n==0|i==1,1,如果[i<2,0,f=FactorInteger[i][[All,1]];b[n,i-1,选择[s,#<i&]]+如果[i<=n&&f~交集~s=={},b[n-i,i-1;选择[s~并集~f,#<i&]],0]]];a[n]:=b[n,n,{}]-b[n-2,n-2,{}];表[a[n],{n,1100}](*让-弗朗索瓦·奥尔科弗,2014年3月20日,之后阿洛伊斯·海因茨*)
表[Length[Select[Integer Partitions[n],Length[%]==1||UnsameQ@@#&CoprimQ@@Union[#]&]],{n,0,30}](*古斯·怀斯曼2019年9月23日*)
|
|
交叉参考
|
囊性纤维变性。A007359号,A038348美元,A084422号,A186974号,A187106号,A303140型,A302569型,A303362型,A304714型,A320426型,A320436型.
|
|
关键字
|
非n,容易的
|
|
作者
|
|
|
扩展
|
更多条款来自Pab Ter(pabrlos2(AT)yahoo.com),2005年11月13日
|
|
状态
|
经核准的
|
|
|
|
|
A186974号
|
| 不规则三角形T(n,k),n>=1,1<=k<=A036234号(n) ,按行读取:T(n,k)是具有两两互质元素的{1,2,…,n}的k元素子集的数目。 |
|
+10 21
|
|
|
1, 2, 1, 3, 3, 1, 4, 5, 2, 5, 9, 7, 2, 6, 11, 8, 2, 7, 17, 19, 10, 2, 8, 21, 25, 14, 3, 9, 27, 37, 24, 6, 10, 31, 42, 26, 6, 11, 41, 73, 68, 32, 6, 12, 45, 79, 72, 33, 6, 13, 57, 124, 151, 105, 39, 6, 14, 63, 138, 167, 114, 41, 6, 15, 71, 159, 192, 128, 44, 6
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
T(5,3)=7,因为有7个{1,2,3,4,5}的3元子集具有两两互质元素:{1,2,3+,{1,2,5},{1,3,4},}1,3,5},{1,4,5{,2,3,5neneneep,{3,5{5}。
不规则三角形T(n,k)开始于:
1;
2, 1;
3, 3, 1;
4, 5, 2;
5, 9, 7, 2;
6, 11, 8, 2;
7, 17, 19, 10, 2;
|
|
MAPLE公司
|
带有(数字理论):
s: =proc(m,r)选项记忆;mul(`if`(i<r,i,1),i=系数集(m))结束:
a: =n->pi(n)+1:
b: =proc(t,n,k)选项记忆;局部c、d、h;
如果k=0或k>n,则为0
elif k=1,然后是1
elif k=2且t=n,则`if`(n<2,0,phi(n))
否则c:=0;
d: =2-伊雷姆(t,2);
h从1到n-1乘以d do
如果igcd(t,h)=1,则c:=c+b(s(t×h,h),h,k-1)fi
od;c(c)
fi(菲涅耳)
结束时间:
T: =proc(n,k)选项记忆;
b(s(n,n),n,k)+`如果`(n<2,0,T(n-1,k))
结束时间:
seq(seq(T(n,k),k=1..a(n)),n=1..20);
|
|
数学
|
s[m_,r_]:=s[m,r]=乘积[如果[i<r,i,1],{i,因子整数[m][[All,1]]}];a[n_]:=PrimePi[n]+1;b[t_,n_,k_]:=b[t,n,k]=模[{c,d,h},其中[k==0|k>n,0,k==1,1,k==2&&t==n,如果[n<2,0,EulerPhi[n]],真,c=0;d=2-模式[t,2];对于[h=1,h<=n-1,h=h+d,如果[GCD[t,h]==1,c=c+b[s[t*h,h],h,k-1]]];c] ];t[n_,k_]:=t[n,k]=b[s[n,n],n,k]+如果[n<2,0,t[n-1,k]];表[表[t[n,k],{k,1,a[n]}],{n,1,20}]//扁平(*让-弗朗索瓦·奥尔科弗,2013年12月17日,翻译自枫叶*)
|
|
交叉参考
|
|
|
关键字
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A320426型
|
| {1,…,n}的非空两两互质子集的个数,其中一个数不被认为是两两互素,除非它等于1。 |
|
+10 15
|
|
|
1, 2, 5, 8, 19, 22, 49, 64, 95, 106, 221, 236, 483, 530, 601, 712, 1439, 1502, 3021, 3212, 3595, 3850, 7721, 7976, 11143, 11878, 14629, 15460, 30947, 31202, 62433, 69856, 76127, 80222, 89821, 91612, 183259, 192602, 208601, 214232, 428503, 431574, 863189
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
如果没有一对数字的公约数大于1,那么两个或更多的数字就是两两互质。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
{1,2,3,4}的a(4)=8个子集是{1}、{1,2}、}1,3}、1,4}、2,3},{3,4{、1,2,3}和{1,3,4]-迈克尔·波特2019年1月12日
a(2)=2到a(6)=22组:
{1} {1} {1} {1} {1}
{1,2} {1,2} {1,2} {1,2} {1,2}
{1,3} {1,3} {1,3} {1,3}
{2,3} {1,4} {1,4} {1,4}
{1,2,3} {2,3} {1,5} {1,5}
{3,4} {2,3} {1,6}
{1,2,3} {2,5} {2,3}
{1,3,4} {3,4} {2,5}
{3,5} {3,4}
{4,5} {3,5}
{1,2,3} {4,5}
{1,2,5} {5,6}
{1,3,4} {1,2,3}
{1,3,5} {1,2,5}
{1,4,5} {1,3,4}
{2,3,5} {1,3,5}
{3,4,5} {1,4,5}
{1,2,3,5} {1,5,6}
{1,3,4,5} {2,3,5}
{3,4,5}
{1,2,3,5}
{1,3,4,5}
(结束)
|
|
数学
|
表[Length[Select[Subsets[Range[n]],互质Q@@#&]],{n,10}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 3, 4, 1, 5, 1, 5, 2, 2, 2, 8, 1, 2, 2, 6, 1, 5, 1, 4, 4, 2, 1, 8, 2, 4, 2, 4, 1, 6, 2, 6, 2, 2, 1, 10, 1, 2, 4, 6, 2, 5, 1, 4, 2, 5, 1, 12, 1, 2, 4, 4, 2, 5, 1, 8, 4, 2, 1, 10, 2, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
此外,n的除数>1的最大两两互质集的数目。例如,n=12,30,36,60,120的a(n)集是:
{6} {30} {6} {30} {30}
{12} {2,15} {12} {60} {60}
{2,3} {3,10} {18} {2,15} {120}
{3,4} {5,6} {36} {3,10} {2,15}
{2,3,5} {2,3} {3,20} {3,10}
{2,9} {4,15} {3,20}
{3,4} {5,6} {3,40}
{4,9} {5,12} {4,15}
{2,3,5} {5,6}
{3,4,5} {5,12}
{5,24}
{8,15}
{2,3,5}
{3,4,5}
{3,5,8}
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
n=12、30、36、60、120时的a(n)集:
{1,6} {1,30} {1,6} {1,30} {1,30}
{1,12} {1,2,15} {1,12} {1,60} {1,60}
{1,2,3} {1,3,10} {1,18} {1,2,15} {1,120}
{1,3,4} {1,5,6} {1,36} {1,3,10} {1,2,15}
{1,2,3,5} {1,2,3} {1,3,20} {1,3,10}
{1,2,9} {1,4,15} {1,3,20}
{1,3,4} {1,5,6} {1,3,40}
{1,4,9} {1,5,12} {1,4,15}
{1,2,3,5} {1,5,6}
{1,3,4,5} {1,5,12}
{1,5,24}
{1,8,15}
{1,2,3,5}
{1,3,4,5}
{1,3,5,8}
|
|
数学
|
fasmax[y_]:=补[y,并集@@Most@@*子集/@y];
表[Length[fasmax[Select[Subset[Divisors[n]],CoprimeQ@@#&]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A005361号,A007359号,A051026号,A062319号,A067824号,A074206号,A146291号,285572加元,A325859型,A326359型,A326496飞机,A326675型,A343654型.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A187262号
|
| 不规则三角形T(n,k),n>=1,1<=k<=A036234美元(n) ,按行读取:T(n,k)是具有<=k个成对互质元素的{1,2,…,n}的非空子集的数目。 |
|
+10 11
|
|
|
1, 2, 3, 3, 6, 7, 4, 9, 11, 5, 14, 21, 23, 6, 17, 25, 27, 7, 24, 43, 53, 55, 8, 29, 54, 68, 71, 9, 36, 73, 97, 103, 10, 41, 83, 109, 115, 11, 52, 125, 193, 225, 231, 12, 57, 136, 208, 241, 247, 13, 70, 194, 345, 450, 489, 495, 14, 77, 215, 382, 496, 537, 543
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
T(n,k)=对于k>A036234号(n) ●●●●。三角形包含T的所有值,直到每一行的最后一个元素,它与前一行不同。
|
|
链接
|
|
|
配方奶粉
|
T(n,k)=和{i=1..n,j=1..k}186972年(i,j)。
|
|
例子
|
T(5,3)=21,因为有21个{1,2,3,4,5}的非空子集,具有<=3个成对互质元素:{1},{2},}3},[4],[5},[1,2],{1,3},{2,3,5},{3,4,5}。
不规则三角形T(n,k)开始于:
1;
2, 3;
3, 6, 7;
4, 9, 11;
5, 14, 21, 23;
6, 17, 25, 27;
7, 24, 43, 53, 55;
|
|
交叉参考
|
|
|
关键字
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A276187型
|
| 基数>=2的{1,..,n}的子集数,使得每个计数子集的元素是成对互质。 |
|
+10 11
|
|
|
0, 1, 4, 7, 18, 21, 48, 63, 94, 105, 220, 235, 482, 529, 600, 711, 1438, 1501, 3020, 3211, 3594, 3849, 7720, 7975, 11142, 11877, 14628, 15459, 30946, 31201, 62432, 69855, 76126, 80221, 89820, 91611, 183258, 192601, 208600, 214231, 428502, 431573, 863188, 900563
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
n是素数当且仅当a(n)=2*a(n-1)+n-1-罗伯特·伊斯雷尔,2016年8月24日
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(2)=1到a(6)=21组:
{1,2} {1,2} {1,2} {1,2} {1,2}
{1,3} {1,3} {1,3} {1,3}
{2,3} {1,4} {1,4} {1,4}
{1,2,3} {2,3} {1,5} {1,5}
{3,4} {2,3} {1,6}
{1,2,3} {2,5} {2,3}
{1,3,4} {3,4} {2,5}
{3,5} {3,4}
{4,5} {3,5}
{1,2,3} {4,5}
{1,2,5} {5,6}
{1,3,4} {1,2,3}
{1,3,5} {1,2,5}
{1,4,5} {1,3,4}
{2,3,5} {1,3,5}
{3,4,5} {1,4,5}
{1,2,3,5} {1,5,6}
{1,3,4,5} {2,3,5}
{3,4,5}
{1,2,3,5}
{1,3,4,5}
(结束)
|
|
MAPLE公司
|
f: =proc(S)选项记忆;
局部s,Sp;
如果S={},则返回1 fi;
s: =s[-1];
Sp:=S[1..-2];
进程名(Sp)+进程名(选择(t->igcd(t,s)=1,Sp))
结束进程:
序列(f({$1..n})-n-1,n=1.50)#罗伯特·伊斯雷尔,2016年8月24日
|
|
数学
|
f[S_]:=f[S]=模块[{S,Sp},如果[S=={},返回[1];s=s[[-1]];Sp=S[[1;;-2]];f[Sp]+f[选择[Sp,GCD[#,s]==1&]]];
|
|
黄体脂酮素
|
(鼠尾草)
从sage.combinat.subsets_pairise导入PairwiseCompatibleSubsets
定义is_coprime(x,y):返回gcd(x,y)==1
最大n=40
序列=[]
对于范围(1,max_n+1)中的n:
P=成对兼容子集(范围(1,n+1),is_coprime)
a_n=len([1代表P.list()中的s,如果len(s)>1])
序列追加(a_n)
打印(seq)
(PARI)f(n,k=1)=如果(n==1,返回(2));如果(gcd(k,n)==1,f(n-1,n*k))+f(n-1,k)
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A320423型
|
| {1,…,n}的集合分区数,其中每个块的元素是两两互质。 |
|
+10 8
|
|
|
1, 1, 1, 2, 2, 8, 4, 28, 18, 120, 60, 888, 252, 5220, 1860, 22224, 9552, 311088, 59616
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
评论
|
如果两个或多个数中没有一对的公约数>1,则它们是成对互素的。除非一个数等于1,否则它不被认为是两两互质。
|
|
链接
|
|
|
例子
|
a(5)=8组分区:
{{1},{2,3},{4,5}}
{{1},{2,5},{3,4}}
{{1,2},{3,4,5}}
{{1,4},{2,3,5}}
{{1,2,3},{4,5}}
{{1,2,5},{3,4}}
{{1,3,4},{2,5}}
{{1,4,5},{2,3}}
|
|
数学
|
spsu[,{}]:={{}};spsu[foo_,set:{i_,___}]:=连接@@函数[s,前缀[#,s]和/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complemental[set,s]]/@Cases[foo、{i,___}];
表[Length[spsu[Select[Subsets[Range[n]],余素Q@@#&],Range[n]],{n,10}]
|
|
交叉参考
|
囊性纤维变性。A000110号,A051424号,A084422号,A085945号,A186974号,A187106号,A302569型,A302696型,A303139型,A303140型,A320424型,A320426型,A320430型,320768美元.
|
|
关键字
|
非n,更多
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A343655型
|
| n的除数的成对互质集的个数,其中一个单子不被认为是成对互素,除非它是{1}。 |
|
+10 8
|
|
|
1, 2, 2, 3, 2, 6, 2, 4, 3, 6, 2, 10, 2, 6, 6, 5, 2, 10, 2, 10, 6, 6, 2, 14, 3, 6, 4, 10, 2, 22, 2, 6, 6, 6, 6, 17, 2, 6, 6, 14, 2, 22, 2, 10, 10, 6, 2, 18, 3, 10, 6, 10, 2, 14, 6, 14, 6, 6, 2, 38, 2, 6, 10, 7, 6, 22, 2, 10, 6, 22, 2, 24, 2, 6, 10, 10, 6, 22, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
例如,n=1、2、4、6、8、12、16、24的a(n)子集为:
{1} {1} {1} {1} {1} {1} {1} {1}
{1,2} {1,2} {1,2} {1,2} {1,2} {1,2} {1,2}
{1,4} {1,3} {1,4} {1,3} {1,4} {1,3}
{1,6} {1,8} {1,4} {1,8} {1,4}
{2,3} {1,6} {1,16} {1,6}
{1,2,3} {2,3} {1,8}
{3,4} {2,3}
{1,12} {3,4}
{1,2,3} {3,8}
{1,3,4} {1,12}
{1,24}
{1,2,3}
{1,3,4}
{1,3,8}
|
|
数学
|
表[Length[Select[Subset[Divisors[n]],互质Q@@#&]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A007360型,A062319号,A067824号,A076078号,A084422号,A187106号,A282935型,285572加元,A304709型,A320423型,A337485型,A343659型.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, 3, 2, 5, 2, 4, 3, 5, 2, 8, 2, 5, 5, 5, 2, 8, 2, 8, 5, 5, 2, 11, 3, 5, 4, 8, 2, 15, 2, 6, 5, 5, 5, 13, 2, 5, 5, 11, 2, 15, 2, 8, 8, 5, 2, 14, 3, 8, 5, 8, 2, 11, 5, 11, 5, 5, 2, 25, 2, 5, 8, 7, 5, 15, 2, 8, 5, 15, 2, 18, 2, 5, 8, 8, 5, 15, 2, 14, 5, 5
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
n=1、2、4、6、8、12、24、30、32、36、48时的a(n)集:
{} {} {} {} {} {} {} {} {} {} {}
{2} {2} {2} {2} {2} {2} {2} {2} {2} {2}
{4} {3} {4} {3} {3} {3} {4} {3} {3}
{6} {8} {4} {4} {5} {8} {4} {4}
{2,3} {6} {6} {6} {16} {6} {6}
{12} {8} {10} {32} {9} {8}
{2,3} {12} {15} {12} {12}
{3,4} {24} {30} {18} {16}
{2,3} {2,3} {36} {24}
{3,4} {2,5} {2,3} {48}
{3,8} {3,5} {2,9} {2,3}
{5,6} {3,4} {3,4}
{2,15} {4,9} {3,8}
{3,10} {3,16}
{2,3,5}
|
|
数学
|
pwcop[y_]:=与@@(GCD@@#1==1&)/@子集[y,{2}];
表[Length[Select[Subsets[Rest[Divisors[n]],pwcop]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A007360型,A051026号,A062319号,A074206号,A087087号,A101268号,285572加元,A305713型,A320423型,A326675型,A337485型,A343655型.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 2, 2, 3, 3, 4, 7, 9, 9, 10, 10, 12, 16, 19, 19, 20, 20, 22, 28, 32, 32, 33, 54, 61, 77, 84, 84, 85, 85, 94, 112, 123, 158, 161, 161, 176, 206, 212, 212, 214, 214, 229, 241, 260, 260, 263, 417, 428, 490, 521, 521, 526, 655, 674, 764, 818, 818, 820, 820, 874, 918, 975, 1182, 1189, 1189
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
对于这个序列,单子是否被视为两两互质并不重要。
对于n>2,也是{2..n}的最大成对互素子集的数目。
对于每个素数p<=n,p精确地划分每个最大子集的一个元素-伯特·多贝莱尔2021年5月4日
|
|
链接
|
|
|
例子
|
a(1)=1到a(9)=7个子集:
{1} {12} {123} {123} {1235} {156} {1567} {1567} {1567}
{134} {1345} {1235} {12357} {12357} {12357}
{1345} {13457} {13457} {12579}
{13578} {13457}
{13578}
{14579}
{15789}
|
|
数学
|
fasmax[y_]:=补[y,并集@@Most@@*子集/@y];
表[Length[fasmax[Select[Subsets[Range[n]],CoprimQ@#&]],{n,15}]
|
|
交叉参考
|
囊性纤维变性。A007360型,A067824号,A087087号,A225520型,A324837型,A325683型,A325859型,A326358型,A326496飞机,A326675型,A333227飞机,A343653型,A343655型.
|
|
关键字
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.010秒内完成
|