%I#21 2018年5月1日02:56:24

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

%电话：49,50,54,55,57,58,59,61,62,63,64,23,24,25,26,27,37,38,42,44,47,51,53，

%U 56、60、28、29、39、43、52、30、40、31、32、33、41、34、35、3619130132133134138

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

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

%C。A……B…………A……C

%C.\.//

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

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

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

%C（（a.b）。c） -->（b、（a、c））____（）。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函数，包括构造（*A089861）和破坏（*A089 861！）版本：）

%o（定义（*A089861秒）

%o（定义（*A089861！s）

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

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

%A089840的Y行18。A089858的逆运算。a（n）=A089852（A069770（n））=A069770。

%Y循环次数：A073193。定点数量：A019590。最大循环尺寸：A089422。循环尺寸的LCM：A089423（在A014137和A014138限制的每个范围内）。

%K nonn公司

%0、3

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

%E由_Antti Karttunen于2011年6月4日添加的方案实施的图形描述和构造版本