显示1-1个结果(共1个)。
第页1
n的分区数,使得每对部分(如果有)都有一个公因数。
+0 28
1, 0, 1, 1, 2, 1, 4, 1, 5, 3, 8, 1, 14, 1, 16, 9, 22, 1, 38, 1, 45, 17, 57, 1, 94, 7, 102, 30, 138, 1, 218, 2, 231, 58, 298, 21, 451, 3, 491, 103, 644, 4, 919, 4, 1005, 203, 1257, 7, 1784, 20, 1993, 301, 2441, 10, 3365, 70, 3737, 496, 4569, 17, 6252, 23, 6848
评论
a(n)不同于A018783号(n) n=0、31、37、41、43、46、47、49、51、52、53、55、56、57、58、59、61、62。
每对(可能相等的)零件都有一个公因数>1。这些分区被称为(成对)相交-古斯·怀斯曼2019年11月4日
例子
a(0)=1:[];
a(4)=2:[2,2],[4];
a(9)=3:[3,3,3],[3,6],[9];
a(31)=2:[6,10,15],[31];
a(41)=4:[6,10,10,15],[6,15,20],[6,14,21],[41]。
MAPLE公司
b: =proc(n,j,s)局部ok,i;
如果n=0,则为1
elif j<2,然后为0
否则ok:=true;
对于以s表示的i,ok表示ok:=evalb(igcd(i,j)<>1)od;
`如果`(ok,加上(b(n-j*k,j-1,[s[],j]),k=1..n/j),0)+b(n,j-1
fi(菲涅耳)
结束时间:
a: =n->b(n,n,[]):
seq(a(n),n=0..62);
数学
b[n_,j_,s_]:=模块[{ok,i,is},其中[n==0,1,j<2,0,True,ok=True;对于[is=1,is<=长度[s]&&ok,is++,i=s[[is]];ok=GCD[i,j]!=1]; 如果[ok,Sum[b[n-j*k,j-1,Append[s,j]],{k,1,n/j}],0]+b[n,j-1;a[n]:=b[n,n,{}];表[a[n],{n,0,62}](*Jean-François Alcover公司,2013年12月26日,翻译自枫叶*)
表[Length[Select[Integer Partitions[n],And[And@@(GCD[##]>1&)@@@Select[Tuples[Union[#],2],LessEqual@@#&]]&]],{n,0,20}](*古斯·怀斯曼2019年11月4日*)
搜索在0.004秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日04:44。包含376079个序列。(在oeis4上运行。)
|