A300060-OEIS公司

A300060型

Heinz数为n的整数分区图的多米诺瓷砖数。

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

	抵消	`1,9`
	评论	`整数分区的Heinz数（y_1，…，y_k）是素数（y_1）**质数（yk）。`
	链接	`阿洛伊斯·海因茨，n=1..100000时的n，a（n）表` `维基百科，多米诺瓷砖` `古斯·怀斯曼，（6,4）的a（91）=5多米诺瓷砖。`
	MAPLE公司	`h： =proc（l，f）选项记忆；局部k；如果min（l[]）>0，则` `如果`（nops（f）=0，1，h（map（x->x-1，l[1..f[1]]），subsop（1=[][]，f）） `nops（l）中的k为else，而l[k]>0由-1做od；` `如果`（nops（f）>0且f[1]>=k，h（底土（k=2，l），f），0）+ `如果`（k>1且l[k-1]=0，h（底土（k=1，k-1=1，l），f），0） `fi（菲涅耳）` `结束时间：` g： =l->`if`（add（`if'（l[i]：：奇数，（-1）^i，0），i=1..nops（l））=0， `如果`（l=[]，1，h（[0$l[1]，底土（1=[][]，l）），0）： a： =n->g（排序（映射（i->numtheory[pi]（i[1]）$i[2]，ifactors（n）[2]），`>`））： `seq（a（n），n=1..120）#阿洛伊斯·海因茨2018年5月22日`
	数学	`h[l_，f_]：=h[l，f]=模[{k}，如果[Min[l]>0，如果[Length[f]==0，1，h[Map[Function[x，x-1]，l[[Range@f[[1]]]]，ReplacePart[f，1->Nothing]]，对于[k=长度[l]，l[k]]>0，k--]；如果[Length[f]>0&&f[[1]]>=k，h[ReplacePart[l，k->2]，f]，0]+如果[k>1&&l[[k-1]]==0，h[ReplacePart[1，{k->1，k-1->1}]，f]、0]]；` `g[l]：=If[Sum[If[OddQ@l[i]]，（-1）^i，0]，{i，1，Length[l]}]==0，If[l=={}，1，h[表[0，l[[1]]]，替换部分[l，1->Nothing]]，0]；` `a[n_]：=g[Reverse@Sort[Flatten[Map[Function[i，Table[PrimePi[i[[1]]]，i[[2]]]，FactorInteger[n]]]]；` `数组[a，120](Jean-François Alcover公司2018年5月28日，之后阿洛伊斯·海因茨)`
	交叉参考	`囊性纤维变性。A000085号,A000720号,A000712号,A000898号,A001222号,A004003号,A056239号,A099390号,A138178号,A153452号,A238690型,A296150型,A296188型,A299925型,A299926型,A300056型,A300061型,A304662型.` `上下文中的序列：A304273型 A153659号 A305565型A300056型 A321758型 A366851型` `相邻序列：A300057型 A300058型 A300059A300061型 A300062型 A300063型`
	关键词	`非n`
	作者	`古斯·怀斯曼2018年2月23日`
	状态	`经核准的`