搜索: a29650-编号:a296050
|
|
A299789型
|
| [n]的置换p的个数T(n,k),使得min_{j=1..n}|p(j)-j|=k;三角形T(n,k),n>=0,0<=k<=楼层(n/2),按行读取。 |
|
+10 7
|
|
|
0, 1, 1, 1, 4, 2, 15, 8, 1, 76, 40, 4, 455, 236, 28, 1, 3186, 1648, 198, 8, 25487, 13125, 1596, 111, 1, 229384, 117794, 14534, 1152, 16, 2293839, 1175224, 146372, 12929, 435, 1, 25232230, 12903874, 1621282, 152430, 6952, 32, 302786759, 154615096, 19563257, 1922364, 112416, 1707, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,5
|
|
链接
|
|
|
配方奶粉
|
总和{k=1..层(n/2)}k*T(n,k)=A129118号(n) ●●●●。
总和{k=2..楼层(n/2)}T(n,k)=A001883号(n) ●●●●。
Sum_{k=4.楼层(n/2)}T(n,k)=A075852号(n) ●●●●。
|
|
例子
|
T(4,0)=15:1234、1243、1324、1342、1423、1432、2134、2314、2431、3124、3214、3241、4132、4213、4231。
T(4,1)=8:2143、2341、2413、3142、3421、4123、4312、4321。
T(4.2)=1:3412。
T(5,2)=4:34512、34521、45123、54123。
T(6.3)=1:456123。
T(7,3)=8:4567123、4567132、4567213、4567231、5671234、5761234、6571234和7561234。
T(8.4)=1:56781234。
电话(9,4)=16:567891234,567891243,56789.1324,5678 91342,567892134,5678 92143,567892 314,567.892341,678912345,679812345,687912345,697812345,768912345、769812345、867912345、967812345。
三角形T(n,k)开始于:
0;
1;
1, 1;
4, 2;
15, 8, 1;
76, 40, 4;
455, 236, 28, 1;
3186, 1648, 198, 8;
25487, 13125, 1596, 111, 1;
229384、117794、14534、1152、16;
2293839, 1175224, 146372, 12929, 435, 1;
25232230, 12903874, 1621282, 152430, 6952, 32;
302786759, 154615096, 19563257, 1922364, 112416, 1707, 1;
...
|
|
MAPLE公司
|
b: =程序选项记忆;(n->`如果`(n=1,x^(s[1]-1),
加((p->add(系数(p,x,i)*x^min(i,abs(n-j)),
i=0..度(p))(b(s减去{j}),j=s))(nops(s))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=0..max(0,度(p)))(b({$1..n})):
seq(T(n),n=0..14);
#第二个Maple项目:
A: =proc(n,k)选项记忆`如果`(n=0,0,线性代数[
永久](矩阵(n,(i,j)->`if`(abs(i-j)>=k,1,0))
结束时间:
T: =(n,k)->A(n,k)-A(n,k+1):
seq(seq(T(n,k),k=0..n/2),n=0..14);
|
|
数学
|
A[n_,k_]:=A[n,k]=If[n==0,0,Permanent[Table[If[Abs[i-j]>=k,1,0],{i,1,n},{j,1,n}]];
T[n_,k_]:=A[n,k]-A[n,k+1];
|
|
交叉参考
|
|
|
关键词
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A323671型
|
| 没有固定点的[n]置换p的个数T(n,k),使得|{j:|p(j)-j|=1}|=k;三角形T(n,k),n>=0,0<=k<=n,按行读取。 |
|
+10 5
|
|
|
1、0、0、0、1、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、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];
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.007秒内完成
|