Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Mar 31 2012 13:21:14
%S 0,1,2,3,4,5,6,8,7,9,10,11,12,13,14,15,16,20,21,19,22,18,17,23,24,25,
%T 27,26,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,55,54,47,57,
%U 58,59,51,52,53,61,62,56,63,48,49,60,64,50,46,45,65,66,67,68,69,70,71
%N Signature permutation of a Catalan automorphism: apply *A074685 to the last subtree, if the root degree (A057515(n)) is odd.
%H A. Karttunen, <a href="/A130371/b130371.txt">Table of n, a(n) for n = 0..2055</a>
%H <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations of Catalan automorphisms</a>
%o (Destructive Scheme implementation of this automorphism, which acts on S-expressions, i.e. list-structures:)
%o (define (*A130371! s) (if (odd? (length s)) (*A074685! (car (last-pair s)))) s)
%Y Inverse: A130372. a(n) = A130370(A074685(n)) = A074686(A130375(A074685(n))) = A130370(A130375(A130369(n))).
%K nonn
%O 0,3
%A _Antti Karttunen_, Jun 05 2007