%I#19 2018年5月1日02:56:03
%S 0,1,3,2,7,8,5,4,6,17,18,20,21,22,12,13,11,9,10,15,14,16,19,45,46,48,
%电话:49,50,54,55,57,58,59,61,62,63,64,31,32,34,35,36,30,33,28,23,24,29,25,
%U 26,27,40,41,39,37,38,43,42,44,47,52,55,53,56,60129130132133134
%N加泰罗尼亚自同构*A073270作用于由A014486/A063171编码的二叉树/括号引起的自然数置换。
%C此自同构对未标记的有根平面二叉树(字母A、B、C表示位于这些节点上的任意子树,()表示隐含的终端节点)上的以下变换产生影响。
%C、。A……B…………C…B
%C.\.//
%C。。。x…C…-->。。。。。A.…x…………()。。A…………A.()。。
%C….\./……….\./…….\./….-->….\./。。。
%C。。。。。x…………..x。。。。
%C((a.b)。c) -->(a、(c、b))____()。a) -->(第页)
%C有关如何从该定义中获取给定整数序列的详细说明,请参阅Karttune-OEIS-Wiki链接。
%H A.Karttunen,<A href=“http://oeis.org/wiki/Catalan_Automorphisms“>加泰罗尼亚自同构</a>
%H<a href=“/index/Per#IntegerPermutationCatAuto”>加泰罗尼亚语自同构诱导的signature-permutation的索引条目</a>
%o(在列表结构/S表达式上实现此自同构的Scheme函数,包括构造(*A073270)和破坏(*A073 270!)版本:)
%o(定义(*A073270 s)(cond((not(pair?s))s)(非(pair)(cars))(cons(cdr)(car)))(其他(cons
%o(定义(*A073270!s)(*A072796!(*A069770!s))
%A089840的Y行19。逆置换:A073269。a(n)=A072796(A069770(n))。
%K nonn公司
%0、3
%2002年6月25日,安蒂·卡图宁
%E A Antti Karttunen添加的自同构的图形描述和方案实现,2011年6月4日
|