|
|
A323671型 |
| 没有固定点的[n]置换p的个数T(n,k),使得|{j:|p(j)-j|=1}|=k;三角形T(n,k),n>=0,0<=k<=n,按行读取。 |
|
5
|
|
|
1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 2, 3, 2, 1, 4, 12, 14, 8, 6, 0, 29, 68, 82, 54, 25, 6, 1, 206, 496, 546, 376, 170, 48, 12, 0, 1708, 3960, 4349, 2922, 1353, 430, 98, 12, 1, 15702, 35816, 38632, 26048, 12084, 4052, 982, 160, 20, 0, 159737, 358786, 383523, 257552, 120919, 41508, 10647, 1998, 270, 20, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,9
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
T(4.0)=1:3412。
T(4,1)=2:34214312。
T(4,2)=3:2413、3142、4321。
T(4,3)=2:23414123。
T(4,4)=1:2143。
三角形T(n,k)开始于:
1;
0, 0;
0, 0, 1;
0,0,2,0;
1, 2, 3, 2, 1;
4, 12, 14, 8, 6, 0;
29, 68, 82, 54, 25, 6, 1;
206, 496, 546, 376, 170, 48, 12, 0;
1708, 3960, 4349, 2922, 1353, 430, 98, 12, 1;
15702、35816、38632、26048、12084、4052、982、160、20、0;
...
|
|
MAPLE公司
|
b: =程序选项记忆;展开((n->`如果`(n=0,1,相加(
(t->`if`(t=0,0,`if`)(t=1,x,1)*b(s减去{j}))
)(abs(n-j)),j=s))(nops(s))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=0..n))(b({$1..n})):
seq(T(n),n=0..12);
|
|
数学
|
b[s_]:=b[s]=Expand[Function[n,If[n==0,1,Sum[Function[t,If[C==0,0,If[t==1,x,1]*b[s~补码~{j}]][Abs[n-j]],{j,s}]]][Length[s]];
T[n_]:=PadRight[系数列表[b[范围[n]],x],n+1];
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|