登录
OEI由许多慷慨的捐赠者给OEIS基金会.

 

标志
提示
(问候来自整数序列在线百科全书!)
A200976 每对零件(如果有的话)有一个公因子的n的划分数。 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 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,5个

评论

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·C·卡里博尼,n=0的n,a(n)表。。350(Alois P.Heinz 0.250条款)

五十、 诺顿,G.Pfeiffer,用对称群的子群模式实现整数序列,国际期刊。第16期(2013年)#13.5.8

公式

a(n>0)=A328673飞机(n) -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]。

枫木

b: =proc(n,j,s)局部ok,i;

如果n=0,则为1

elif j<2然后0

否则ok:=真;

对于i in s,在ok时执行ok:=evalb(igcd(i,j)<>1)od;

如果`(确定,加上(b(n-j*k,j-1,[s[],j]),k=1。。n/j),0)+b(n,j-1,s)

金融机构

结束:

a: =n->b(n,n,[]):

顺序(a(n),n=0。。62);

数学

b[n,jˉ,s_9]:=模块[{ok,i,is},其中[n==0,1,j<2,0,True,ok=True;对于[is=1,is<=Length[s]&&ok,is++,i=s[[is]];好=GCD[i,j]!=1] ;如果[ok,Sum[b[n-j*k,j-1,Append[s,j]],{k,1,n/j}],0]+b[n,j-1,s]];a[n_u]:=b[n,n,{}];表[a[n],{n,0,62}](*让·弗朗索瓦·阿尔科弗,2013年12月26日,译自枫叶*)

Table[Length[Select[IntegerPartitions[n],And[And@@(GCD[##]>1&)@@@Select[Tuples[Union[#],2],LessEqual@@@@&]&]],{n,0,20}](*格斯·怀斯曼2019年11月4日*)

交叉引用

囊性纤维变性。A018783号.

只比较不同部分的版本是A328673飞机.

相对最好的情况是A202425.

严格的情况是A318717型.

非同构多集分区的版本是A319752型.

set系统的版本是A305843飞机.

囊性纤维变性。A000837号,A305148,A305854飞机,A306006型,A316476型,A328672飞机,A328867飞机,A328868飞机.

上下文顺序:A083711号 A339619飞机 A018783号*A328187飞机 A331885飞机 A298971年

相邻序列:A200973号 A200974号 A200975号*A200977号 A200978号 A200979号

关键字

作者

海因茨2011年11月29日

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:2022年6月27日04:01。包含354888个序列。(运行在oeis4上。)