%I#7 2018年2月23日11:10:29

%S 1,1,2,1,2,1,1,3,2,1,5,1,2,5,1,4,2,2,1,8,2,3,4,1,6,1,7,2,2，

%T 2,11,1,2,2,8,1,5,1,4,4,2,1,16,2,4,4,1,7,2,2,1,13,1,2,5,11,2,5，

%U 1,4,2,6,1,19,1,2,4,4,2,5,1,13,5,2,1,13,2

%N复合为Heinz数为N的整数分区的两部分的数目。

%整数分区的Heinz数（y_1，…，y_k）是素数（y_1）**质数（yk）。

%e a（36）=11两部分：

%e（2211），

%e（22）（11），（211）（2），（221）（1），（21）（21），

%e（2）（2），

%e（2）（2）、（1）（1）。

%t nn=100；

%t ptns=表[If[n===1，{}，Join@@Cases[FactorInteger[n]//Reverse，{p_，k_}:>表[PrimePi[p]，{k}]]，{n，nn}]；

%t tris=Join@@Map[Tuples[IntegerPartitions/@#]&，ptns]；

%t表[Length[Select[tris，Sort[Join@@#，Greater]==y&]]，{y，ptns}]

%Y参见A000041、A063834、A112798、A196545、A273873、A281145、A289501、A290261、A296150、A299200、A299202、A299203。

%K nonn公司

%O 1,4型

%A _Gus Wiseman_，2018年2月5日