A258117-OEIS公司

A258117号

海因茨数按分区的递增顺序分为不同的偶数部分。

1, 3, 7, 13, 19, 21, 29, 37, 39, 43, 53, 57, 61, 71, 79, 87, 89, 91, 101, 107, 111, 113, 129, 131, 133, 139, 151, 159, 163, 173, 181, 183, 193, 199, 203, 213, 223, 229, 237, 239, 247, 251, 259, 263, 267, 271, 273, 281, 293, 301, 303, 311, 317, 321, 337, 339, 349 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`我们将分区p=[p_1，p_2，…，p_r]的Heinz数定义为乘积（p_j-th素数，j=1…r）（阿洛伊斯·海因茨在里面A215366型作为分区的“编码”）。例如，分区[1，1，2，4，10]的Heinz数是223729=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）表`
	例子	`213位于序列中，因为它是分区[2,20]的Heinz数；实际上，（第二素数）（第二十素数）=371=213。`
	MAPLE公司	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}）然后DE:=`union`（DE，{q}）else end if end do:DE； `#第二个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]]，真，k++，如果[AllTrue[FactorInteger[k]，#[2]]==1&&EvenQ[PrimePi[#[1]]]&]，中断[]]]；k] ；数组[a，100](Jean-François Alcover公司2016年12月12日之后阿洛伊斯·海因茨)`
	交叉参考	`囊性纤维变性。A215366型,A258116型.` `上下文中的序列：18667年 A353357 A352140型A034017号 A034021号 A216516型` `相邻序列：A258114号 A258115型 A258116型A258118型 A258119型 A258120型`
	关键字	`非n`
	作者	`Emeric Deutsch公司2015年5月20日`
	扩展	`a（1）=1由插入阿洛伊斯·海因茨2016年5月10日`
	状态	`经核准的`

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间：2024年4月23日15:11 EDT。包含371914个序列。（在oeis4上运行。）