%I#21 2015年1月7日05:41:00

%S 1,1,0,2,0,0,0,1,0,5,4,1,0,10,7,13,5,1,00,11,37,21,6,1,0.0,15100，

%电话：78,31,7,1,0,0,2265292133，43,8,1,0,1,306941028586215，57,9,1,0，

%U 0,421828369124531073325,73,10,1,0,564815130041035750581836467,91,11,0,0

%N按行读取的三角形：T（N，k）给出了长度为N的投票序列数，该序列具有最大下降k，N>=0，0<=k<=N。

%C还有一个标准的Young表，其中有一对单元格（v，v+1），使得v位于v+1之上k行，并且没有一对（u，u+1）具有更大的间隔。

%H Joerg Arndt和Alois P.Heinz，<a href=“/A238128/b238128.txt”>n表，a（n）表示n=0..35，扁平</a>

%e三角形开始：

%e 00:1；

%e 01:1，0；

%e 02:2、0、0；

%e 03:3、1、0、0；

%e 04:5、4、1、0、0；

%e 05:7、13、5、1、0、0；

%e 06:11、37、21、6、1、0、0；

%e 07:15、100、78、31、7、1、0、0；

%e 08:22、265、292、133、43、8、1、0、0；

%e 09:30、694、1028、586、215、57、9、1、0、0；

%e 10:42、1828、3691、2453、1073、325、73、10、1、0、0；

%电子邮箱11:56、4815、13004、10357、5058、1836、467、91、11、1、0、0；

%电子邮箱12:77、12867、46452、43462、23953、9631、2941、645、111、12、1、0、0；

%e。。。

%p b:=proc（n，v，l）选项记住`如果`（n<1，1，展开（添加(

%p`if`（i=1或l[i-1]>l[i]，（p->` if`（i<v，加上（系数（p，x，h））*

%p`if`（h<v-i，x^（v-i），x^h），h=0.最大值（v-i，度（p）），p））

%p（b（n-1，i，底土（i=l[i]+1，l）），0），i=1..nops（l））+

%p b（n-1，nops（l）+1，[l[]，1]））

%p端：

%pT:=n->（p->seq（系数（p，x，i），i=0..n））（b（n-1，1，[1]））：

%p序列（T（n），n=0..12）；

%t b[n_，v_，l_List]：=b[n，v，l]=如果[n<1，1，Expand[Sum[If[i==1||l[[i-1]>l[[i]]，函数[{p}，If[i<v，Sum[系数[p，x，h]*如果[h<v-i，x^（v-i），x^h]，{h，0，Max[v-i，指数[p，x]}]，p]][b[n-1，i，替换部分[l，i->l[i]]+1]]，0]，{i，1，长度[l]}]+b[n-1，长度[1]+1，附加[l，1]]]；T[n_]：=函数[{p}，表[系数[p，x，i]，{i，0，n}][b[n-1，1，{1}]]；表[T[n]，{n，0，12}]//Flatten（*_Jean-François Alcover_，2015年1月7日，翻译自Maple*）

%Y列k=0-10表示：A000041、A244197、A244198、A24409、A244200、A244201、A244202、A2144203、A244、204、A24、205和A244206。

%Y行总和为A000085。

%Y参考A238129。

%K nonn，表

%0、4

%A _Joerg Arndt_和_Alois P.Heinz，2014年2月21日