|
| |
|
| A238129号 |
| 行读取的三角形：T（n，k）给出了长度为n的投票序列的数量，该序列具有最大升序k，n>=0，0<=k<=n。 |
|
12
|
|
|
|
1, 1, 0, 1, 1, 0, 1, 3, 0, 0, 1, 8, 1, 0, 0, 1, 19, 5, 1, 0, 0, 1, 47, 21, 6, 1, 0, 0, 1, 114, 78, 31, 7, 1, 0, 0, 1, 286, 292, 133, 43, 8, 1, 0, 0, 1, 723, 1028, 586, 215, 57, 9, 1, 0, 0, 1, 1869, 3691, 2453, 1073, 325, 73, 10, 1, 0, 0, 1, 4870, 13004, 10357, 5058, 1836, 467, 91, 11, 1, 0, 0
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,8
|
|
|
评论
|
还有一个标准的Young表，其中有一对单元格（v，v+1），使得v位于v+1以下k行，并且不存在具有更大间隔的一对（u，u+1）。
|
|
|
链接
|
|
|
|
例子
|
三角形开始：
00: 1;
01:1，0；
02: 1, 1, 0;
03: 1, 3, 0, 0;
04: 1, 8, 1, 0, 0;
05: 1, 19, 5, 1, 0, 0;
06: 1, 47, 21, 6, 1, 0, 0;
07: 1, 114, 78, 31, 7, 1, 0, 0;
08: 1, 286, 292, 133, 43, 8, 1, 0, 0;
09: 1, 723, 1028, 586, 215, 57, 9, 1, 0, 0;
10: 1, 1869, 3691, 2453, 1073, 325, 73, 10, 1, 0, 0;
11: 1, 4870, 13004, 10357, 5058, 1836, 467, 91, 11, 1, 0, 0;
12:1、12943、46452、43462、23953、9631、2941、645、111、12、1、0、0；
...
|
|
|
MAPLE公司
|
b： =proc（n，v，l）选项记忆；局部m；m： =nops（l）；
`如果`（n<1，1，展开（添加（`if`（i=1或l[i-1]>l[i]，
（p->`如果`（v<i，加上（coeff（p，x，h）*`如果'（h<i-v，
x^（i-v），x^h），h=0..最大值（i-v，度（p）），p））
（b（n-1，i，底土（i=l[i]+1，l）），0），i=1..m）+
（p->加（系数（p，x，h）*`如果`（h<m+1-v，x^（m+1-v），x^h），
h=0..最大值（m+1-v，度（p））（b（n-1，m+1，[l[]，1]））
结束时间：
T： =n->（p->seq（系数（p，x，i），i=0..n））（b（n-1，1，[1]））：
seq（T（n），n=0..14）；
|
|
|
数学
|
b[n_，v_，l_List]：=b[n，v，l]=模[{m=Length[l]}，如果[n<1，1，展开[Sum[If[i==1||l[i-1]]>l[i]]，函数[{p}，If[v<i，Sum[系数[p，x，h]*如果[h<i-v，x^（i-v），x^h]，{h，0，Max[i-v，指数[p，x]]}]，p][b[n-1，i，ReplacePart[l，i->l[[i]]+1]]，0]，{i，1，m}]+函数[{p}，总和[系数[p，x，h]*如果[h<m+1-v，x^（m+1-v），x^h]，{h，0，最大值[m+1-v，指数[p，x]]}][b[n-1，m+1，附加[l，1]]]]]；T[n_]：=函数[{p}，表[系数[p，x，i]，{i，0，n}][b[n-1，1，{1}]]；表[T[n]，{n，0，14}]//扁平(*Jean-François Alcover公司2015年1月7日，翻译自枫叶*）
|
|
|
交叉参考
|
k=0-10列给出：A000012号,A244208型,A244198号,A244199号,A244200型,A244201型,A244202号,A244203型,A244204号,A244205型,2014年2月.
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
