login
A127378
Signature-permutation of a Catalan automorphism, inverse of A127377.
6
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, 50, 49, 54, 55, 61, 63, 64, 57, 62, 59, 58, 37, 38, 39, 41, 40, 51, 52, 56, 31, 32, 60, 34, 36, 35, 42, 43, 53, 28, 29, 47, 33, 26, 27, 44, 30, 25, 24, 23, 129, 130, 132, 134, 133
OFFSET
0,3
COMMENTS
Used to construct A127380.
PROG
(Scheme implementation of this automorphism, destructive, that acts on S-expressions, i.e. list-structures:)
(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)
CROSSREFS
Inverse: A127377. A127302(a(n)) = A127302(n) holds for all n.
Sequence in context: A089863 A069767 A154458 * A122302 A131159 A086426
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 16 2007
STATUS
approved