登录

OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A321731飞机 用Heinz数n将整数分区的Young图划分为与原始分区部分大小相同的垂直部分的方法的数量。 4 1、1、0、1、0、2、0、1、2、0、0、5、0、0、0、1、0、10、0、3、0、0、9、0、0、8、0、0、12、0、1、0、0、0、34、0、0、10、0、0、0、0、24、0、0、14、0、0、0、0、0、0、0、68、0、4、0、0、0、0、78、0、0、0、1、0、0、0、0、0、86、0、36，0，0，0，0，22，60，0，0 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,6 评论 整数分区的Heinz数（y_1，…，y_k）是素数（y_1）*…*质数（yk）。 垂直截面是一个部分杨氏图，每行最多有一个正方形。例如，（322）的Young图的合适分区（显示为正整数着色）为： 1 2 3 1 2 2 3 链接 n=1..83时的n，a（n）表。 例子 （321）的杨氏图的a（30）=12分为大小为（321 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 1 3 2 1 3 1 1 2 1 3 1 1 1 1 2 3 . 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 2 1 3 1 2 3 3 2 2 3 3 2 2 3 2 2 3 3 数学 素数MS[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]； spsu[，{}]：={{}}；spsu[foo_，set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@spsu[Select[foo，Complement[#，Complement[set，s]]=={}&]，Complemental[set，s]]/@Cases[foo、{i，___}]； ptnpos[y_]：=位置[表[1，{#}]&/@y，1]； ptnverts[y_]：=选择[Join@@Table[Subsets[ptnpos[y]，｛k｝]，｛k，Reverse[Union[y]]｝]，UnnameQ@@First/@#&]； 表[With[{y=Reverse[primeMS[n]]}，Length[Select[spsu[ptnverts[y]，ptnpos[y]]，Function[p，Sort[Length/@p]==Sort[y]]]，{n，30}] 交叉参考 囊性纤维变性。A000110号,A000258,A000700型,A000701号,A056239美元,A122111号,A321649飞机,A321728飞机,A321729飞机,321730英镑,A321737飞机,A321738飞机. 上下文中的序列：A115723号 A238160型 A178524号*A358135型 A212357号 A114525号 相邻序列：A321728飞机 A321729飞机 A321730型*A321732飞机 A321733飞机 321734美元 关键字 非n 作者 古斯·怀斯曼2018年11月18日 状态 经核准的

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

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

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