%I#28 2021年5月10日07:40:34

%S 0,0,0,1,0,3,2,5,4,13,7,23,18,32,33,65,50104,92148153252226，

%电话：376376544570846821123712761736186925522643365938875067，

%电话：550972447672100861090913756151681919520735262372870839207

%N将N的整数划分为所有大于1的相对素部分的数目。

%如果两个或两个以上的数字没有除1以外的公约数，则它们是相对素数。除非一个数字等于1（在这种情况下是不可能的），否则它不被视为相对素数。

%C这些分区的Heinz编号由A302697给出。

%H Alois P.Heinz，n的表格，n=1..1000时的a（n）</a>

%F a（n）=A002865（n）-A018783（n）。

%e a（5）=1到a（12）=7个分区（空列用点表示）：

%e（32）。(43) (53) (54) (73) (65) (75)

%e（52）（332）（72）（433）（74）（543）

%e（322）（432）（532）（83）（552）

%e（522）（3322）（92）（732）

%e（3222）（443）（4332）

%e（533）（5322）

%e（542）（33222）

%e（632）

%e（722）

%e（3332）

%e（4322）

%e（5222）

%e（32222）

%pb:=proc（n，i，g）选项记忆`如果`（n=0，`如果`（g=1，1，0），

%p `如果`（i<2，0，b（n，i-1，g）+b（n-i，min（n-i），igcd（g，i）））

%p端：

%p a:=n->b（n$2,0）：

%p序列（a（n），n=1..60）；#_Alois P.Heinz，2018年4月12日

%t表[Length[Select[Integer Partitions[n]，FreeQ[#，1]&&GCD@@#===1&]]，{n，30}]

%t（*第二个程序：*）

%tb[n_，i_，g_]：=b[n，i，g]=如果[n==0，如果[g==1，1，0]，如果[i<2，0，b[n、i-1，g]+b[n-i，Min[n-i、i]，GCD[g，i]]]；

%t a[n]：=b[n，n，0]；

%t数组[a，60]（*_Jean-François Alcover_，2021年5月10日，在_Alois P.Heinz_*之后）

%Y A000837是允许1的版本。

%Y A002865不需要相对素性。

%Y A302697给出了这些分区的Heinz编号。

%Y A337450为订购版本。

%Y A337451是订购的严格版本。

%Y A337452是严格版本。

%Y A337485是成对互质，而不是相对质数。

%Y A000740计算相对基本成分。

%Y A078374统计相对严格的基本分区。

%Y A212804统计没有1的成分。

%Y A291166似乎排名相对最好的成分。

%Y A332004计算了严格的相对优质成分。

%Y A337561计算两两互质严格成分。

%Y A338332是长度为3的情况，严格情况为A338333。

%Y参考A007359、A018783、A051424、A101268、A289508、A289509、A302568、A337563、A337984、A338468。

%K nonn公司

%O 1,7

%A _Gus Wiseman_，2018年4月11日

%E由Gus Wiseman_于2020年10月29日延期