|
| |
|
| A214152型 |
| S_n中包含长度为k的递增子序列的置换数T（n，k）；三角形T（n，k），n>=1，1<=k<=n，按行读取。 |
|
15
|
|
|
|
1, 2, 1, 6, 5, 1, 24, 23, 10, 1, 120, 119, 78, 17, 1, 720, 719, 588, 207, 26, 1, 5040, 5039, 4611, 2279, 458, 37, 1, 40320, 40319, 38890, 24553, 6996, 891, 50, 1, 362880, 362879, 358018, 268521, 101072, 18043, 1578, 65, 1, 3628800, 3628799, 3612004, 3042210, 1438112, 337210, 40884, 2603, 82, 1
(列表;桌子;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
T（3.2）=5。全部3！={1,2,3}的6个置换包含长度为2的递增子序列，321除外。
三角形T（n，k）开始于：
: 1;
: 2, 1;
: 6, 5, 1;
: 24, 23, 10, 1;
：120、119、78、17、1；
: 720, 719, 588, 207, 26, 1;
: 5040, 5039, 4611, 2279, 458, 37, 1;
|
|
|
MAPLE公司
|
h： =proc（l）局部n；n： =nops（l）；加上（i，i=l）/mul（mul（1+l[i]-j
+加法（`if`（l[k]>=j，1，0），k=i+1.n），j=1.l[i]），i=1..n）
结束时间：
g： =（n，i，l）->`如果'（n=0或i=1，h（[l[]，1$n]）^2，`如果'（i<1，0，
添加（g（n-i*j，i-1，[l[]，i$j]），j=0..n/i））：
T： =（n，k）->n-g（n，k-1，[]）：
seq（seq（T（n，k），k=1..n），n=1..12）；
|
|
|
数学
|
h[l]：=与[{n=长度[l]}，和[i，{i，l}]！/乘积[1+l[[i]]-j+和[If[l[[k]]>=j，1，0]，{k，i+1，n}]，{j，1；g[n_，i_，l_]：=如果[n==0||i==1，h[Join[l，Array[1&，n]]^2，如果[i<1，0，Sum[g[n-i*j，i-1，Join[1，Arrai[i&，j]]]，{j，0，n/i}]]；t[n，k_]：=n！-g[n，k-1，{}]；表[表[t[n，k]，{k，1，n}]，{n，1，12}]//扁平(*Jean-François Alcover公司，2013年12月17日，翻译自枫叶*）
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
