%I#27 2020年5月13日10:56:50
%S 1,1,1,1,1,1,2,2,3,4,4,5,6,7,9,10,11,14,17,20,24,29,35,40,48,55
%N分格Par(N)中最大反链的大小。
%C Par(n)是n在“支配顺序”下的划分集:如果P的最大k部分之和<=所有k的Q的相应和,则划分P是<=划分Q。
%H T.Brylawski,<a href=“http://dx.doi.org/10.1016/0012-365X(73)90094-0“>整数分区的格</a>,《离散数学》6(1973),201-219。
%H Edward Early,<a href=“https://web.archive.org/web/20150911055028/http://myweb.stedwards.edu/edwarde/partitions.pdf“>优势晶格中的链长度</a>,2013年6月8日。
%H Edward Early,<a href=“http://dx.doi.org/10.1016/j.disc.2013.05.016“>优势格中的链长度,《离散数学》,第313卷,第20期,2013年10月28日,第2168-2177页。
%H C.Greene和D.J.Kleitman,<a href=“http://dx.doi.org/10.1016/S0195-6698(86)80013-0“>按多数排序的整数分区格中最长链,欧洲组合数学7(1986),1-10。
%H Grant Kopitzke,<a href=“https://arxiv.org/abs/2005.04284“>整数分区的基尼指数</a>,arXiv:2005.04284[math.CO],2020。提到这个序列。
%F增长顺序介于n^(-5/2)e^(Pi*sqrt(2n/3))和n^。
%e a(10)=4;一条反链由5+1+1+1+1、4+3+1+1、4]+2+2+2和3+3+3+1组成。
%t leq[p_,q_]:=如果[Length[p]<Length[q],False,模块[{i,ds},对于[i=1;ds=0,i<Length[q]、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],#]&]]];a[n_]:=a[n]=maxac[IntegerPartitions[n]]
%Y参见A006463、A077765、A076779。
%K nonn,难,更多
%0、7
%2002年11月5日,A _Edward Early
%E编辑:Dean Hickerson,2002年11月9日
%E a(22)-a(26),作者:Paul Tabatabai,2018年12月5日
|