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

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

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

%U 49,50,27,41,34,54,55,35,57,58,59,36,61,62,63,64,65,67,70,72,75,79,81

%N自然数的置换：A014486编码的有根平面树的底部分支的旋转。

%C通过过程fixedcount可以计算此排列固定的对象数（根平面树、山脉、括号），从而得出A034731。

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

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

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

%p RotateBottomBranchesL:=n->pars2binexp（rotateL（binexp2pars（n）））；

%p rotateL:=proc（a）如果0=nops（a），则（a）else[op（cdr（a）），a[1]；fi；结束；

%p固定计数：=proc（n）局部d，z；z:=0；对于除数（n）中的d，做z:=z+C（d-1）；od；返回（z）；结束；

%o（在列表结构上实现此自同构的Scheme函数：）（define（Rol s）（cond（not（pair？s））s）（else（append（cdr s）（list（car s））））

%o（破坏性变体，请参见A057501了解RotateHandshakes！和swap！）

%A057510的Y逆函数和A069775的car/cdr翻转共轭函数，以及A069770和A057501的组成，即A057509（n）=A057163（A069775n（n））=A057 501（A069 770n）。

%A0003239给出的Y循环计数。另请参阅A057511。

%K nonn公司

%O 0.3

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