A129609 Signature-permutation of a Catalan automorphism, row 65167 of A089840.

0, 1, 3, 2, 7, 6, 8, 4, 5, 17, 18, 14, 15, 16, 20, 19, 21, 9, 10, 22, 11, 12, 13, 45, 46, 48, 49, 50, 37, 38, 39, 40, 41, 42, 43, 44, 47, 54, 55, 51, 52, 53, 57, 56, 58, 23, 24, 59, 25, 26, 27, 61, 60, 62, 28, 29, 63, 30, 31, 32, 64, 33, 34, 35, 36, 129, 130, 132, 133, 134

Offset

0,3

Comments

Automorphism *A074679 = ENIPS(*A129609). See the definition given in A122204.

Links

A. Karttunen, Table of n, a(n) for n = 0..2055

A. Karttunen, Prolog-program which illustrates the construction of this and similar nonrecursive Catalan automorphisms.

Index entries for signature-permutations of Catalan automorphisms

Prog

(Constructive and destructive Scheme implementation of this automorphism. These act on S-expressions, i.e. list-structures:)
(define (*A129609 s) (cond ((pair? s) (*A074679 (cons (car s) (*A074680 (cdr s))))) (else s)))
(define (*A129609! s) (cond ((pair? s) (*A074680! (cdr s)) (*A074679! s))) s)

Crossrefs

Inverse: A129610.

Sequence in context: A130930 A072095 A131009 * A130924 A073269 A122329

Adjacent sequences: A129606 A129607 A129608 * A129610 A129611 A129612

Keyword

nonn

Author

Antti Karttunen, May 22 2007

Status

approved