%I#46 2020年12月31日17:25:04

%S 1,1,2,3,4,6,7,10,12,15,18,23,27,33,38,43,51,60,70,81,92102116134，

%电话：15317119121123626630133536739442485542598649704771，

%电话：84993610231103185128214071535166217901917206322452436

%N将N划分为两两相对素部分的数目。

%H Fausto A.C.Cariboni，n表，n=0..750的A（n）（Alois P.Heinz的术语0..400）

%H Eric Schmutz，<a href=“https://doi.org/10.1016/0012-365X（90）90181-G“>部分是两两相对素数的分区，《离散数学》81（1）（1990），87-89。

%H Temba Shonhiwa，<a href=“http://www.fq.math.ca/Papers1/44-4/quarttemba04_2006.pdf“>在限制设置内具有两两相对素数和的组合，Fibonacci Quart.44（4）（2006），316-323。

%F log a（n）~（2*Pi/sqrt（6））sqrt（n/log n）_埃里克·施密特（Eric M.Schmidt），2013年7月4日

%F显然没有已知的公式或复发。-_N.J.A.Sloane，2017年3月5日

%e a（4）=4，因为除2+2外，4的所有分区都由相对质数组成。

%e具有两两互质部分的a（6）=7分区：（111111），（21111），（3111）_Gus Wiseman_，2018年4月14日

%p（数字理论）：

%pb:=proc（n，i，s）选项记忆；局部f；

%p如果n=0或i=1，则为1

%p elif i<2，然后为0

%p其他f：=系数集（i）；

%p b（n，i-1，select（x->是（x<i），s））+“if”（i<=n和f相交s={}，

%p b（n-i，i-1，选择（x->是（x<i），s联合f）），0）

%功率因数

%p端：

%pa:=n->b（n，n，{}）：

%p序列（a（n），n=0..80）；#_Alois P.Heinz，2012年3月14日

%tb[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，{}]；表[a[n]，{n，0，54}]（*_Jean-François Alcover_，2013年10月3日，翻译自Maple，源于_Alois P.Heinz_*）

%o（哈斯克尔）

%o a051424=长度。过滤器f。分区，其中

%o f[]=真

%o f（p:ps）=（all（==1）$map（gcd p）ps）&f ps

%o分区n=ps 1 n，其中

%o ps x 0=[[]]

%o ps x y=[t:ts | t<-[x.y]，ts<-ps t（y-t）]

%o——Reinhard Zumkeller，2013年12月16日

%Y将n划分为相对素数部分的分区数=A000837。

%Y行合计A282749。

%Y参见A000837、A007359、A007360、A051424、A289509、A298748、A302569、A302696、A302797。

%K nonn公司

%0、3

%A _胡戈·范德桑登_

%E更精确的定义摘自Vladeta Jovovic，2004年12月11日