搜索: a065182-编号:a06512
|
|
|
|
0, 1, 2, 5, 3, 4, 6, 7, 14, 23, 17, 20, 8, 11, 12, 22, 13, 21, 9, 10, 16, 18, 15, 19, 24, 25, 26, 29, 27, 28, 54, 55, 86, 119, 95, 110, 62, 71, 78, 116, 79, 113, 65, 68, 92, 102, 89, 103, 30, 31, 38, 47, 41, 44, 48, 49, 84, 118, 94, 108, 50, 53, 80, 117, 83, 109, 51, 52
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
在这里,我们使用Foata变换的左右极大值变体的倒数,其工作方式是首先旋转每个循环的最大元素,然后根据每个循环的第一个(和最大)元素将循环按升序排序。
|
|
参考文献
|
I.M.Gessel和R.P.Stanley,代数枚举,《组合数学手册》第2卷第21章,R.L.Graham等人编辑,麻省理工学院出版社,1995年,第1045页。
|
|
链接
|
Joe Buhler和R.L.Graham,颠簸跌落阿默尔。数学。月刊,101,(第6期)1994,507-519。
|
|
MAPLE公司
|
[seq(PermRevLexRank(FoataInv(PermRevLexUnrank(j))),j=0..119)];
与(组);FoataInv:=p->map(op,排序([op(map(RotCycleLargestFirst,convert(p,`disjcyc`))),op(FixedCycles(p))],sortbyfirst));
sortbyfirst:=(a,b)->`if`((a[1]<b[1]),true,false);
查找最大值:=proc(a)局部i,m;m:=0;对于i从1到nops(a),如果(0=m),则m:=i;否则,如果(a[i]>a[m]),则m:=i;fi;fi;od;回程(m);结束;
RotCycleLargestFirst:=进程(c)局部x;x:=查找最大值(c);如果(x<=1),则返回(c);否则返回([op(c[x..nops(c)]),op(c[1..(x-1)]));fi;结束;
固定周期:=proc(p)局部a,i;a:=[];对于i从1到nops(p),如果(p[i]=i),则a:=[op(a),[i]];fi;od;返回(a);结束;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0、1、2、5、3、4、6、7、14、23、15、22、8、21、12、16、19、11、17、10、9、13、20、18、24、25、26、29、27、28、54、55、86、119、87、118、56、117、84、88、115、59、89、58、57、85、116、114、30、31、80、107、81、106、48、49、60、67、61、66、74、92、38、113、47、101、112、100
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
MAPLE公司
|
[seq(PermRank3R(Foata(PermUnrank3R,j)),j=0..119)];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|
|
|
|
0, 1, 2, 4, 5, 3, 6, 7, 12, 20, 19, 17, 14, 21, 8, 10, 15, 18, 23, 16, 22, 13, 11, 9, 24, 25, 26, 28, 29, 27, 48, 49, 78, 108, 103, 91, 74, 111, 62, 69, 75, 104, 101, 94, 100, 83, 71, 64, 54, 55, 80, 109, 107, 90, 30, 31, 36, 44, 43, 41, 56, 58, 72, 110, 106, 77, 59, 57, 81
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
MAPLE公司
|
[seq(PermRank3R(FoataInv(PermUnrank3R,j)),j=0..119)];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
搜索在0.010秒内完成
|