1,2

我们将分区p=[p_1，p_2，…，p_r]的Heinz数定义为乘积（p_j-th素数，j=1…r）（阿洛伊斯·海因茨在里面A215366型作为分区的“编码”）。例如，分区[1，1，2，4，10]的Heinz数是2*2*3*7*29=2436。

在Maple程序中，子程序B生成Heinz编号为n的分区。

如果将Maple程序中的350替换为更大的数字，则会获得更多术语。

G.E.Andrews，《分割理论》，Addison-Wesley，Reading，马萨诸塞州，1976年。

G.E.Andrews、K.Eriksson，《整数分区》，剑桥大学出版社，2004年，剑桥。

阿洛伊斯·海因茨，n=1..10000时的n，a（n）表

170位于序列中，因为它是分区[1,3,7]的Heinz数；实际上，（第一素数）*（第三素数）x（第七素数）=2*5*17=170。

with（numtheory）：B:=proc（n）local pf:pf:=op（2，ifactors（n））：[seq（seq（pi（op（1，op（i，pf））），j=1..op（2、op（i、pf）{true}）then DO:=`union`（DO，{q}）else end if end DO:DO；

#第二个Maple项目：

a： =proc（n）选项记忆；局部k；

对于1+`if`（n=1,0，a（n-1））中的k，do

如果在map中不是false（i->i[2]=1和numtheory

[pi]（i[1]）：：奇数，ifactors（k）[2]）然后中断fi

od；k个

结束时间：

seq（a（n），n=1..100）#阿洛伊斯·海因茨2016年5月10日

a[n_]：=a[n]=模[{k}，对于[k=1+如果[n==1，0，a[n-1]]，True，k++，如果[AllTrue[FactorInteger[k]，#[2]]==1&&OddQ[PrimePi[#[1]]]&]，Break[]]]；k] ；联接[{1}，数组[a，100]](*Jean-François Alcover公司2016年12月10日之后阿洛伊斯·海因茨*)

囊性纤维变性。A215366型,A258117号.

上下文中的序列：A257031型 A167799号 A179871号*A324812型 A032874号 A240032型

相邻序列：A258113型 A258114号 A258115型*A258117号 A258118型 A258119型

非n

Emeric Deutsch公司2015年5月20日

a（1）=1由插入阿洛伊斯·海因茨2016年5月10日

经核准的