|
| |
|
| A285849型 |
| 具有k个有序循环的[n]置换的数量T（n，k），使得等长循环是以增加的最少元素排序的；三角形T（n，k），n>=0，0<=k<=n，按行读取。 |
|
14
|
|
|
|
1, 0, 1, 0, 1, 1, 0, 2, 6, 1, 0, 6, 19, 18, 1, 0, 24, 100, 105, 40, 1, 0, 120, 508, 1005, 430, 75, 1, 0, 720, 3528, 6762, 6300, 1400, 126, 1, 0, 5040, 24876, 61572, 62601, 28700, 3822, 196, 1, 0, 40320, 219168, 558548, 706608, 431445, 105336, 9114, 288, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,8
|
|
|
评论
|
每个循环都以最小的元素开头，等长的循环按其第一个元素的递增顺序排列。
|
|
|
链接
|
|
|
|
例子
|
T（3,1）=2:（123），（132）。
T（3,2）=6:（1）（23），（23）（1），（2）（13），（13）（2），（3）（12），（12）（3）。
T（3,3）=1：（1）（2）（3）。
三角形T（n，k）开始于：
1;
0, 1;
0, 1, 1;
0, 2, 6, 1;
0, 6, 19, 18, 1;
0, 24, 100, 105, 40, 1;
0, 120, 508, 1005, 430, 75, 1;
0, 720, 3528, 6762, 6300, 1400, 126, 1;
0, 5040, 24876, 61572, 62601, 28700, 3822, 196, 1;
|
|
|
MAPLE公司
|
b： =proc（n，i，p）选项记忆；展开（‘if’（n＝0或i＝1，
（p+n）/不*x^n，加上（b（n-i*j，i-1，p+j）*（i-1）^j*组合
[多项式]（n，n-i*j，i$j）/j^2*x^j，j=0..n/i））
结束时间：
T： =n->（p->seq（系数（p，x，i），i=0..n））（b（n$2，0））：
seq（T（n），n＝0..12）；
|
|
|
数学
|
多项式[n_，k_List]：=n/次数@@（k！）；
b[n_，i_，p_]：=b[n，i，p]=展开[If[n==0||i==1，（p+n）！/n！*x^n，总和[b[n-i*j，i-1，p+j]*（i-1）^j*多项式[n，连接[{n-i*j}，表[i，j]]/j^2*x^j，{j，0，n/i}]]；
T[n_]：=函数[p，表[系数[p，x，i]，{i，0，n}][b[n，n，0]]；
|
|
|
交叉参考
|
k=0-10列给出：A000007号,A104150型,A285853型,A285854型,A285855型,A285856型,A285857型,A285858型,A285859型,A285860型,A285861型.
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
