|
|
A285824型 |
| 将[n]的有序集划分成k个块的数量T(n,k),使得等长块是用递增的最少元素排序的;三角形T(n,k),n>=0,0<=k<=n,按行读取。 |
|
14
|
|
|
1, 0, 1, 0, 1, 1, 0, 1, 6, 1, 0, 1, 11, 18, 1, 0, 1, 30, 75, 40, 1, 0, 1, 52, 420, 350, 75, 1, 0, 1, 126, 1218, 3080, 1225, 126, 1, 0, 1, 219, 4242, 17129, 15750, 3486, 196, 1, 0, 1, 510, 14563, 82488, 152355, 63756, 8526, 288, 1, 0, 1, 896, 42930, 464650, 1049895, 954387, 217560, 18600, 405, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,9
|
|
链接
|
|
|
例子
|
T(3,1)=1:123。
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, 1, 6, 1;
0, 1, 11, 18, 1;
0, 1, 30, 75, 40, 1;
0, 1, 52, 420, 350, 75, 1;
0, 1, 126, 1218, 3080, 1225, 126, 1;
0, 1, 219, 4242, 17129, 15750, 3486, 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)*x^j*组合
[多项式](n,n-i*j,i$j)/j^2,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]*x^j*多项式[n,连接[{n-i*j},表[i,j]]/j^2,{j,0,n/i}]];
T[n_]:=函数[p,表[系数[p,x,i],{i,0,n}][b[n,n,0]];
|
|
交叉参考
|
k=0-10列给出:A000007号,A057427号,A285917型,A285918型,A285919型,A285920型,A285921型,A285922型,A285923型,A285924型,A285925型.
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|