|
| |
|
| A077765号 |
| 配分晶格中最大尺寸反链的数目Par（n）。 |
|
2
|
|
|
|
1, 1, 2, 3, 5, 7, 2, 4, 15, 4, 2, 11, 18, 14, 53, 2, 54, 1606, 482, 104, 754, 536
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
0,3
|
|
|
评论
|
Par（n）是n在“支配顺序”下的划分集：如果P的最大k部分之和<=所有k的Q的相应和，则划分P是<=划分Q。
|
|
|
链接
|
|
|
|
例子
|
对于n=10，最大尺寸为A076269号(10)=4. 有两个最大尺寸的反链：{5+1+1+1、4+3+1+1、4]+2+2+2、3+3+1}和{6+1+1+1，5+2+2+1，4+4+1，4+3+3}。所以a（10）=2。
|
|
|
数学
|
leq[p_，q_]：=如果[Length[p]<Length[q]，False，模块[{i，ds}，对于[i=1；ds=0，i<Length[C]，i++，如果[（ds+=q[[i]]-p[i]]）<0，返回[False]]]；正确]]；maxac[l]：=如果[Length[l]<=1，Length[1]，maxac[l]=Max[maxac[Drop[l，1]]，1+maxac[Select[l，！leq[#，l[[1]]]&&！leq[l[[1]，#]&]]]；maxantichains[l]：=如果[Length[l]<=1，{l}，Module[{v，t}，v={}；如果[maxac[l]==maxac[Drop[l，1]]，v=Join[v，maxanticchains[Drop[1]]]；t=选择[l，！leq[#，l[[1]]]&&！leq[l[[1]，#]&]；如果[maxac[l]==1+maxac[t]，v=Join[v，前缀[#，l[[1]]]&/@maxantichains[t]]]；v] ]；a[n_]：=长度[maxantichains[Partitions[n]]]（*第一个do<<离散数学`Combinatorica`*）（*maxac[l]=集合l中最大反链的大小。maxanticchains[l]=l中所有最大反链列表。*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
