%I#4 2019年5月2日16:04:56

%S 1,2,3,4,5,6,7,9,10,11,12,13,14,15,17,18,19,20,21,22,23,25,26,28,29，

%电话：31、33、34、35、37、38、39、41、42、43、44、45、46、47、49、50、51、52、53、55、57、58、59，

%U 61,62,63,65,66,67,68,69,70,71,73,74,75,76,77,78,79,82,83

%N连续部分之间存在明显差异的整数分区的Heinz数。

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

%C A325325给出了这些分区的总和计数。

%H Gus Wiseman，<a href=“/A325325/A325325.txt”>序列根据连续部分的差异对整数分区进行计数和排序</a>

%e大多数小数都在序列中，但非项序列及其素数指数开始于：

%e 8:{1,1,1}

%e 16:{1,1,1,1}

%e 24:{1,1,2,2}

%e 27:{2,2,2}

%e 30:｛1,2,3｝

%e 32:{1,1,1,1,1,1}

%e 36:{1,1,2,2}

%e 40:{1,1,3}

%e 48:{1,1,1,1,2}

%e 54：{1,2,2,2}

%e 56：{1,1,4}

%e 60:{1,1,2,3}

%e 64:{1,1,1,1,1,1,1}

%e 72：{1,1,1,2,2}

%e 80:{1,1,1,1,3}

%e 81:{2,2,2,2}

%e 88：{1,1,5}

%e90:｛1,2,2,3｝

%e 96:{1,1,1,1,1,1,2}

%e 100:{1,1,3,3}

%t primeptn[n_]：=如果[n==1，{}，Reverse[Flatten[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；

%t选择[Range[100]，UnsameQ@@Differences[primeptn[#]]&]

%Y参见A056239、A112798、A130091、A240026、A325325、A325428、A325352、A325360、A325361、A3253656、A325377、A325405、A3256、A32.5457。

%K nonn公司

%O 1,2号机组

%A _Gus Wiseman_，2019年5月2日