#来自在线整数序列百科全书的问候!http://oeis.org/ Search:id:a065163 显示1-1(共1个);%I a065163 %S a0651631,1,3,7,25216963234359225227292051731334818255372542355194171 %N a065163由Foata转换的上部记录版本划分的对称组中的最大轨道大小(即。,a(n)是对应排列A065181-A065184中的最大循环长度,范围[0,n!-1] )。 %C A065163注:每个连续范围内的固定项数[0,n!-1] 由Fibonacci(a0001)和相应的数a00an1给出。(Foata变换只在由不相交的相邻转置组成时才修复置换。) %C A065163此版本的Foata变换是几种类型之一。该映射将s中具有k个循环的置换s取为具有k个上记录的s的置换t,即k个索引i,其中t(i)>max{t(j):j<i}。-_Theodore Zhu,2014年8月15日 %p A065163 FoataPermutation CycleCounts_length_and_LCM:=proc(最多)local u,n,a,a,b,i,f;a:=[];b:=[];f:=1;对于i,从0到n!-1做b:=[op(b),1+PermRank3R(Foata(Permurank3R(i)(i))];如果((f-1)=i),那么a:=[op(a),[周期(b),周期长度S1(b),周期周期LCM(b)];打印(a);f:=f*(f*(nops(a)+1);fi;od;返回(a);end;end;end;;%p A065163 lcmlist:=proc(a)局部z,e;z:=1;对于e在a做的e中z:=ilcm(z,e);od;返回(z);end;结束;f:=f*f*(nops(a)+1);fi;nops;end;end;f:=f*(a %p A065163循环LCM:=b->lcmlist(map(无,convert(b,'disjcyc')); %Y A065163 Cf.A065161,A065162. %Y A065163有关必需的Maple程序,请参见序列a05702、A057542、a06117、a06125。 %K A065163 nonn,更多 %O A065163 1,3 %A A065163 %E A065163 more terms from _theodorezhu %E A065163,2014年8月15日 # # #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License