#来自在线整数序列百科全书的问候!本次搜索:id:a0651182〈1-1的1个一个 ;%I a0651182;%S a065182 0,1,1,2,4,5,3,6,7,5,3,6,7,12,18,19,13,14,16,16,8,22,20,20,10,21,23,11,17,15,15,9,24,25,;%T a065182 26,28,29,27,48,49,72,72,27,48,49,72,96,97,73,74,74,76,60100,98,98,52,99101,53,77,75,75,75,75,75,72,72,96,96,97,73,74,74,76,76,76,78,78,,51, %U a065182 54,55,60,66,67,61,30,31,84108109,85,78,91,36115102,42103114,43 %N A065182当A055089所列的有限排列经过Foata变换时产生的非负整数的置换。A065181的逆。 %C A065182这里我们使用Foata变换的一个变体,它通过在每个左右最大值处“插入括号”形成一个新的排列来划分循环。 %D A065182 I.M.Gessel和R.P.Stanley,《代数枚举》,第2卷《组合学手册》第21章,由R.L.Graham等人编辑,麻省理工学院出版社,1995年,第1045页。 %H A065182 Joe Buhler和R.L.Graham,忽悠跌宕起伏阿默尔。数学。月刊,101,(第6期)1994,507-519。 %H A065182自然数排列序列的索引项%p A065182【p(seq)(permrrevlexrank(Foata(permerrevlexunrank(j))),j=0..119】;;;%p A065182 with(组);Foata:=proc(p)局部c,c1,i,i,m;c:=[];c1:=[];m:=0;对于i从1到nops(p)从1到nops(p)做如果(p[i]>m)那么如果如果(nops(c1)>1),那么c:=[op(c),c1];fi;m:=p[i];c1:=[];fi;c1:=[c1),p[c1],p[i]]]]]的op(c1:=[c1),p[c1);od;如果(nops(c1)>1),则c:=[op(c),c1];fi;RETURN(convert(c,'permlist',nops(p));end; %Y A065182 A065161-A065163给出循环计数和最大长度。参见A065183、A065184、A055089和A056019,了解必要的Maple程序。 %K A065182 nonn %O A065182 0,3 %A A065182 Antti Karttunen,2001年10月19日 %K A065182 nonn %O A065182 0,3 %A