%我#42 2022年2月17日01:14:57
%S 1,2,2,3,2,3,4,3,3,4,1,4,4,5,6,5,4,5,5,6,1,6,7,5,5,6,
%T 7,8,9,8,7,6,5,6,7,8,10,9,8,7,6,10,7,8,9,10,11,10,9,8,7,10,7,8,9,10,
%U 11,12,11,10,9,8,7,7,8,9,10,11,12,13,12,11,10,9,8,7,8,10,11,12,13,14,13
%N表T(N,k)=反对偶读取的最大值{N,k}(N>=1,k>=1)。
%C反对角线和=A006578.-_Reinhard Zumkeller_2011年11月17日
%H Peter Kagey,三角形的反对角线n=1..126,扁平</a>
%F From _Robert Israel_,2016年7月22日:(开始)
%F G.F.如表所示:G(x,y)=x*y*(1-3*x*y+x*y^2+x^2*y)/((1-x*y)*(1-x)^2*(1-y)^2)。
%F G.F.压扁:(1-x)^(-2)*(x^2+Sum_{j>=0}x^(2*j^2)*(x+x^2-2*x^。(结束)
%e表格开始
%e 1、2、3、4、5。。。
%e 2、2、3、4、5。。。
%e 3、3、3,4、5。。。
%e 4、4、4和5。。。
%e。。。
%p seq(seq(最大值(r,d+1-r),r=1..d),d=1..15);#_罗伯特·伊斯雷尔(Robert Israel),2016年7月22日
%t压扁[表[Max[n-k+1,k],{n,13},{k,n,1,-1}]](*_Alonso del Arte_,2011年11月17日*)
%o(PARI)T(n,k)=最大值(n,k)
%o(岩浆)[最大(n-k+1,k):k in[1..n],n in[1..15]];//_G.C.Greubel,2019年7月23日
%o(Sage)[[max(n-k+1,k)for k in(1..n)]for n in(1..15)]#_G.C.Greubel_,2019年7月23日
%o(GAP)平面(列表([1..15],n->列表([1.n],k->最大值(n-k+1,k)));#_G.C.Greubel,2019年7月23日
%Y参考A003056、A003983、A00398、A004197。
%Y等于A003984(n)+1。
%K nonn,tabl,轻松,好
%O 1,2号机组
%A _N.J.A.斯隆_
%E Robert Lozyniak提供的更多条款
|