%I #5 Mar 31 2012 13:21:14
%S 0,1,3,2,7,8,6,5,4,17,18,20,22,21,14,15,19,12,13,16,11,10,9,45,46,48,
%T 50,49,54,55,61,63,64,57,62,59,58,37,38,39,41,40,51,52,56,31,32,60,34,
%U 36,35,42,43,53,28,29,47,33,26,27,44,30,25,24,23,129,130,132,134,133
%N Signature-permutation of a Catalan automorphism, inverse of A127377.
%C Used to construct A127380.
%H <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations of Catalan automorphisms</a>
%o (Scheme implementation of this automorphism, destructive, that acts on S-expressions, i.e. list-structures:)
%o (define (*A127378! s) (cond ((null? s)) ((null? (cdr s)) (*A069770! s) (*A127378! (cdr s))) ((null? (car s)) (*A069770! s) (*A127380! (car s))) (else (*A127380! s))) s)
%Y Inverse: A127377. A127302(a(n)) = A127302(n) holds for all n.
%K nonn
%O 0,3
%A _Antti Karttunen_, Jan 16 2007