%I #34 Mar 30 2024 17:21:54
%S 0,1,2,3,4,5,7,6,8,9,10,11,12,13,17,18,16,14,15,20,19,21,22,23,24,25,
%T 26,27,28,29,30,31,32,33,34,35,36,45,46,48,49,50,44,47,42,37,38,43,39,
%U 40,41,54,55,53,51,52,57,56,58,59,61,60,62,63,64,65,66,67,68,69,70,71
%N Self-inverse permutation of natural numbers induced by a Catalan bijection acting on binary trees as encoded by A014486. See comments and examples for details.
%C This bijection effects the following transformation on the unlabeled rooted plane binary trees (letters A, B, C refer to arbitrary subtrees located on those nodes and () stands for an implied terminal node).
%C A B A C
%C \ / \ /
%C x C --> x B () A () A
%C \ / \ / \ / --> \ /
%C x x x x
%C ((a . b) . c) --> ((a . c) . b) (() . a) ---> (() . a)
%C See the example for an explanation of how to obtain a given integer sequence from this definition.
%C Notably for this permutation, A127301(a(n)) = A127301(n) does not always hold, even though for all n, A129593(a(n)) = A129593(n). - _Antti Karttunen_, Jan 14 2024
%H A. Karttunen, <a href="http://oeis.org/wiki/Catalan_Automorphisms">Catalan Automorphisms</a>
%H <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations induced by Catalan automorphisms</a>
%F a(n) = A057163(A072796(A057163(n))).
%e To obtain the signature permutation, we apply these transformations to the binary trees as encoded and ordered by A014486 and for each n, a(n) will be the position of the tree to which the n-th tree is transformed to, as follows:
%e .
%e one tree of one internal
%e empty tree (non-leaf) node
%e x \/
%e n= 0 1
%e a(n)= 0 1 (both are always fixed)
%e .
%e the next 7 trees, with 2-3 internal nodes, in range [A014137(1), A014137(2+1)-1] = [2,8] are:
%e .
%e \/ \/ \/ \/
%e \/ \/ \/ \/ \/ \/ \/ \/
%e \/ \/ \/ \/ \_/ \/ \/
%e n= 2 3 4 5 6 7 8
%e .
%e and the new shapes after swapping the two subtrees in positions marked "B" and "C" in the diagram given in the comments are:
%e .
%e \/ \/ \/ \/
%e \/ \/ \/ \/ \/ \/ \/ \/
%e \/ \/ \/ \/ \/ \_/ \/
%e a(n)= 2 3 4 5 7 6 8
%e thus we obtain the first nine terms of this sequence: 0, 1, 2, 3, 4, 5, 7, 6, 8.
%o (Scheme function implementing this automorphism on list-structures/S-expressions, both constructive (*A072797) and destructive (*A072797!) version:)
%o (define (*A072797 s) (if (and (pair? s) (pair? (car s))) (cons (cons (caar s) (cdr s)) (cdar s)) s))
%o (define (*A072797! s) (cond ((not (pair? s)) s) ((not (pair? (car s))) s) (else (swap! s) (robl! s) (swap! (car s)) s)))
%o (define (robl! s) (let ((ex-car (car s))) (set-car! s (cddr s)) (set-cdr! (cdr s) ex-car) (swap! (cdr s)) (swap! s) s))
%o (define (swap! s) (let ((ex-car (car s))) (set-car! s (cdr s)) (set-cdr! s ex-car) s))
%Y Row 8 of A089840.
%Y Cf. A014486, A057163, A072796, A127301, A129593.
%Y Counts for the fixed points and for the number of distinct cycles (in each subrange limited by A014137) are given by A073190 and A073191.
%K nonn
%O 0,3
%A _Antti Karttunen_, Jun 12 2002
%E Further comments added by _Antti Karttunen_, Jun 04 2011 and Mar 30 2024