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”).

A129611
Signature-permutation of a Catalan automorphism, row 169 of A089840.
4
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.
PROG
(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
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 22 2007
STATUS
approved