A257992-OEIS公司

A257992型

分区中具有Heinz数n的偶数部分的数目。

0, 0, 1, 0, 0, 1, 1, 0, 2, 0, 0, 1, 1, 1, 1, 0, 0, 2, 1, 0, 2, 0, 0, 1, 0, 1, 3, 1, 1, 1, 0, 0, 1, 0, 1, 2, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 1, 2, 0, 1, 1, 1, 3, 0, 1, 2, 1, 0, 1, 1, 0, 3, 0, 1, 1, 0, 0, 1, 1, 1, 2, 0, 1, 1, 1, 1, 2, 1, 0, 4, 0, 0, 2, 0, 1, 2 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,9`
	评论	`我们将分区p=[p_1，p_2，…，p_r]的Heinz数定义为乘积（p_j-th素数，j=1…r）（阿洛伊斯·海因茨在里面A215366型作为分区的“编码”）。例如，对于分区[1，1，2，4，10]，我们得到223729=2436。` `在Maple程序中，子程序B生成Heinz编号为n的分区。`
	参考文献	`G.E.Andrews、K.Eriksson，《整数分区》，剑桥大学出版社，2004年，剑桥。` `M.博纳，《组合数学漫游》，世界科学出版公司，2002年。`
	链接	`阿洛伊斯·海因茨，n=1..20000时的n，a（n）表`
	例子	`a（18）=2，因为Heinz数为18=233的分区是[1,2,2]，有2个偶数部分。`
	MAPLE公司	使用（数字理论）：a:=proc（n）局部B，ct，q:B:=prog（n）本地nn，j，m:nn:=op（2，ifactors（n））：对于j到nops（nn）do m[j]：=op（j，nn）end do:[seq（seq（pi（op（1，m[i]）））），q=1。。op（2，m[i]），i=1。。nops（nn））]结束过程：ct:=0：对于q到nops（B（n）），如果`mod`（B（n）[q]，2）=0，则ct:=ct+1否则结束如果结束do:ct结束过程：seq（a（n），n=1。。135); `#第二个Maple项目：` a： =n->add（`if`（numtheory[pi]（i[1]）：：偶数，i[2]，0），i=ifactors（n）[2]）： `seq（a（n），n=1..120）#阿洛伊斯·海因茨2016年5月9日`
	数学	`a[n_]：=总和[If[PrimePi[i[[1]]]//EvenQ，i[2]]，0]，{i，FactorInteger[n]}]；a[1]=0；表[a[n]，{n，1，120}](Jean-François Alcover公司2016年12月10日之后阿洛伊斯·海因茨)`
	交叉参考	`囊性纤维变性。A001222号,A215366型,A257991型.` `上下文中的序列：A257217号 A184154号 A284441号A060952号 A297155号 A037844号` `相邻序列：A257989型 A257990型 A257991型A257993型 A257994型 A257995型`
	关键词	`非n`
	作者	`Emeric Deutsch公司2015年5月18日`
	状态	`经核准的`