登录
OEIS由OEIS基金会的许多慷慨捐助者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A238004型 数组的行限制在A238325型. 1
2, 2, 4, 4, 2, 4, 6, 4, 4, 6, 4, 4, 12, 2, 4, 4, 8, 6, 8, 4, 4, 8, 12, 4, 12, 4, 4, 8, 8, 4, 6, 18, 8, 4, 4, 8, 8, 4, 12, 12, 6, 24, 2, 4, 4, 8, 8, 4, 8, 12, 6, 12, 12, 24, 10, 4, 4, 8, 8, 4, 8, 12, 12, 8, 12, 6, 36, 4, 8, 20, 4, 4, 8, 8, 4, 8, 12, 8, 8, 12 (列表图表参考历史文本内部格式)
抵消
0,1
评论
对于固定的m>=2和足够大的k,k的第一个m+1反对角线分区(按反Mathematica顺序列出)如下:p(0)=[1,1,…,1](k1's),p(1)=[2,1,..,1]。。。,p[m]=[2,…,2,1,…,1](m2和k-2m 1's)。p(n)在k的所有分区中的出现次数(对于足够大的k)是a(n);请参见示例。
链接
Clark Kimberling和Peter J.C.Moses,费勒矩阵与整数的相关划分
例子
参考注释中的反对角线分区p(i),p(0)对所有k>=2出现2次;p(1)对所有k>=5发生2次;对于所有k>=7,p(2)发生4次;对于所有k>=9,p(3)发生4次;等,以便23804加元以2、2、4、4开头。
数学
ferrersMatrix[list_]:=PadRight[Map[Table[1,{#}]&,#],{#,#}&[Max[#,Length[#]]]&[list];antiDiagPartNE[list_]:=模块[{m=ferrersMatrix[list]},映射[Diagonal[Reverse[m],#]&,Range[-#,#]&[Length[m]-1]]];a[n_]:=最后一个[Transpose[Tally[Map[DeleteCases[Reverse[Sort[Map[Count[#,1]&,antiDiagPartNE[#]]],0]&,IntegerPartitions[n]]]
拿[a[40],100](*彼得·J·C·摩西2014年2月18日*)
交叉参考
囊性纤维变性。A238325型.
关键词
非n,容易的
作者
状态
经核准的

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

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

上次修改时间:2024年4月19日23:40 EDT。包含371798个序列。(在oeis4上运行。)