A129611 Signature-permutation of a Catalan automorphism, row 169 of A089840.

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

Offset

0,3

Comments

Automorphism *A089859 = ENIPS(*A129611). 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

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

Crossrefs

Inverse: A129612.

Sequence in context: A122327 A154452 A130999 * A154456 A122328 A082346

Adjacent sequences: A129608 A129609 A129610 * A129612 A129613 A129614

Keyword

nonn

Author

Antti Karttunen, May 22 2007

Status

approved