%I#7 2014年5月1日02:48:29

%S 0,1,2,3,4,6,5,7,8,9,14,10,16,19,11,15,12,17,18,13,20,21,22,23,37,24，

%电话：42,51,25,38,26,44,47,27,53,56,60,28,39,29,43,52,30,40,31,45,46,32,48，

%U 49,50,33,41,34,54,55,35,57,58,59,36,61,62,63,64,65107,6612149,67

%N自然数的置换：A014486编码的有根平面树的底部分支的旋转。（至A057509的相反方向）。

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（包括计算此序列的完整Scheme程序）

%p#与A057508中给出的相反，对于计数周期，请参见A057502，对于其他程序，请遵循A057501。

%p映射（CatalanRankGlobal，映射（RotateBottomBranchesR，A014486））；

%p RotateBottomBranchesR:=n->pars2binexp（rotateR（binexp2pars（n）））；

%p旋转R:=a->反向（旋转L（反向（a）））；

%p RotBBPermutationCycleCounts:=进程（upto_n）局部u，n，a，r，b；a:=[]；对于从0到upto_n的n，做b:=[]；u:=（二项式（2*n，n）/（n+1））；对于从0到u-1的r，请执行b:=[op（b），1+CatalanRank（n，RotateBottomBranchesL（CatalanUnrank（n、r））]；od；a:=[op（a），计数周期（b）]；od；返回（a）；结束；

%p A003239:=RotBBPermutationCycleCounts（some_value）；（例如9。参见A057502、A057162）

%o（Scheme函数在列表结构上实现此自同构，请参见A057502了解RotateHandshakes！和swap！：）（define（Ror！s）（cond（（pair？s）（RotateHandshakesInv！s）

%A057509的Y逆函数和A069776的car/cdr翻转共轭函数，以及A057502和A06977的组成，即A057510（n）=A057163（A069777（A05763（n））=A069770。

%A003239给出的Y循环计数。另请参阅A057512、A057513。

%K nonn公司

%0、3

%2000年9月3日，安蒂·卡图内