来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a065182 Showing 1-1 of 1 %I A065182 %S A065182 0,1,2,4,5,3,6,7,12,18,19,13,14,16,8,22,20,10,21,23,11,17,15,9,24,25, %T A065182 26,28,29,27,48,49,72,96,97,73,74,76,50,100,98,52,99,101,53,77,75,51, %U A065182 54,55,60,66,67,61,30,31,84,108,109,85,78,91,36,115,102,42,103,114,当A055089A所列出的有限置换受FoATA变换时,产生的非负整数的43πn A06182排列。反A065 181..%C A065 182在这里,我们使用FoATA变换的变体,它通过在每个左右极大值上插入“圆括号”来形成新的排列,以限定周期。{0%180A06182 I. M. Gessel和R. P. Stanley,代数枚举,第21章《组合数学手册》,第2卷,由R.L.格雷厄姆等人编辑,麻省理工学院出版社,Mass,1995页,第1045页.0%HA06182 Joe Buhler和R. L. Graham,杂耍下落阿梅尔。数学月,101,(6)1994, 507 - 519。自然数排列序列的索引条目%p A065182 [seq(PermRevLexRank(Foata(PermRevLexUnrank(j))),j=0..119)]; %p A065182 with(group); Foata := proc(p) local c,c1,i,m; c := []; c1 := []; m := 0; for i from 1 to nops(p) do if(p[i] > m) then if(nops(c1) > 1) then c := [op(c),c1]; fi; m := p[i]; c1 := []; fi; c1 := [op(c1),p[i]]; od; if(nops(c1) > 1) then c := [op(c),c1]; fi; 返回(转换(C,‘PrimLIST’,NOPS(P)));结束;% %Y A065 182 A065 161-A06163给出循环计数和最大长度。参见A065 183、A065 184和A056019和A056019,对于必要的枫过程。%K0A06182,NN,%0AO,A065 182,0%,3%%A065 182,ANTI KARTUUNENEI,10月19日2001‰的内容在OEIS最终用户许可协议下可用:HTTP:/OEIS.Org/许可证