%I#21 2018年5月1日02:54:32

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

%电话：49,50,54,55,57,58,59,61,62,63,64,31,32,34,35,36,40,41,43,44,47,52,53，

%U 56、60、30、33、39、42、51、28、37、23、24、29、38、25、26、27129、130、132、133、134

%加泰罗尼亚自同构*A089862作用于A014486/A063171编码的二叉树/括号引起的自然数的N置换。

%C此自同构对未标记的有根平面二叉树（字母A、B、C表示位于这些节点上的任意子树，（）表示隐含的终端节点）上的以下变换产生影响。

%C、。A…B…………..C…A

%C.\.//

%C。。。x…C…-->。。。。。B…x…………（）。。A………A.（）。。

%C….\./……….\./…….\./….-->….\./。。。

%C。。。。。x…………..x。。。。

%C（（a.b）。c） -->（b.（c.a））____（（）。a） -->（第页）

%C有关如何从该定义中获取给定整数序列的详细说明，请参阅Karttune-OEIS-Wiki链接。

%H A.Karttunen，<A href=“http://oeis.org/wiki/Catalan_Automorphisms“>加泰罗尼亚自形</a>

%H A.Karttunen，用于计算此序列的c程序</a>

%H<a href=“/index/Per#IntegerPermutationCatAuto”>加泰罗尼亚语自同构诱导的signature-permutation的索引条目</a>

%o（在列表结构/S-表达式上实现这种自同构的Scheme函数，包括构造（*A089862）和破坏（*A089862！）版本：）

%o（定义（*A089862秒）

%o（定义（*A089862！s）

%o（定义（交换！s）（let（（ex-car（cars）））（set-car！s（cdr-s））（set-cdr！s ex-car）s））

%o（定义（robr！s）（let（（ex-cdr（cdrs）））（set-cdr！s（caars））（set-car！（cars）ex-cdrs）（swap！（car s））

%A089840的Y行20。A089860的逆运算。a（n）=A089853（A069770（n））=A069770。循环次数：A001683（似乎是，未检查）。固定点数：A019590。所有循环尺寸的最大循环尺寸和LCM：A089410（每个范围受A014137和A014138限制）。

%K nonn公司

%0、3

%2003年11月29日，安蒂·卡图内

%E由_Antti Karttunen_于2011年6月4日添加的方案实施的图形描述和建设性版本