login
Signature-permutation of a Catalan automorphism, inverse of A127377.
6

%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