%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‘if’(i<2,0,b(n,i-1,g)+b(n-i,min(n-i,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(*第二个程序:*)
%t b[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、A289 509、A302568、A337563、A337984、A338468。
%K nonn公司
%O 1,7型
%A _Gus Wiseman_,2018年4月11日
%E由Gus Wiseman_于2020年10月29日延期