login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A129610
Signature-permutation of a Catalan automorphism, row 65352 of A089840.
3
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.
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 22 2007
STATUS
approved