A129610 Signature-permutation of a Catalan automorphism, row 65352 of A089840.

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

Offset

0,3

Comments

Automorphism *A074680 = SPINE(*A129610). See the definition given in A122203.

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 (*A129610 s) (cond ((pair? s) (let ((t (*A074680 s))) (cons (car t) (*A074679 (cdr t))))) (else s)))
(define (*A129610! s) (cond ((pair? s) (*A074680! s) (*A074679! (cdr s)))) s)

Crossrefs

Inverse: A129609.

Sequence in context: A131002 A130394 A130955 * A130923 A057501 A071655

Adjacent sequences: A129607 A129608 A129609 * A129611 A129612 A129613

Keyword

nonn

Author

Antti Karttunen, May 22 2007

Status

approved