|
| |
|
| A212431型 |
| 按行读取三角形：行和、右边框和左边框是Bell序列或移位变量。精确定义见注释。 |
|
2
|
|
|
|
1, 1, 1, 2, 1, 2, 5, 3, 2, 5, 15, 9, 8, 5, 15, 52, 31, 28, 25, 15, 52, 203, 121, 108, 100, 90, 52, 203, 877, 523, 466, 425, 405, 364, 203, 877, 4140, 2469, 2202, 2000, 1875, 1820, 1624, 877, 4140, 21147, 12611, 11250, 10230, 9525, 9100, 8932, 7893, 4140, 21147
(列表；桌子；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,4
|
|
|
评论
|
左右边界=钟号，A000110号: (1, 1, 2, 5, 15,...). 行总和=移位的贝尔数（1、2、5、15、52…）。
第n行术语之和=下一行最右边和最左边的术语。
|
|
|
链接
|
|
|
|
例子
|
三角形的前几行是：
1；
1, 1
2, 1, 2;
5, 3, 2, 5;
15, 9, 8, 5, 15;
52, 31, 28, 25, 15, 52;
203, 121, 108, 100, 90, 52, 203;
877, 523, 466, 425, 405, 364, 203, 877;
4140, 2469, 2202, 2000, 1875, 1820, 1624, 877, 4140;
21147, 12611, 11250, 10230, 9525, 9100, 8932, 7893, 4140, 21147;
...
|
|
|
MAPLE公司
|
b： =proc（n）选项记忆`如果`（n=0，[1,0]，
加（（p->p+[0，p[1]*x^（n-j）]）*
二项式（n-1，j-1），j=1..n））
结束时间：
T： =n->（p->seq（`if`（i=n，p[1]，系数(
p[2]，x，i），i=0..n））（b（n））：
|
|
|
数学
|
b[n_]：=b[n]=如果[n==0，{1，0}，和[Function[p，p+{0，p[1]]*x^（n-j）}][b[n-j]*二项式[n-1，j-1]]，{j，1，n}]]；
T[n_]：=函数[p，表[If[i==n，p[[1]]，系数[p[2]，x，i]]，{i，0，n}]][b[n]]；
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
