login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A129610 Signature-permutation of a Catalan automorphism, row 65352 of A089840. 3

%I #6 Mar 31 2012 13:21:14

%S 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,

%T 49,50,54,55,57,58,59,61,62,63,64,28,29,30,31,32,33,34,35,23,24,36,25,

%U 26,27,39,40,41,37,38,43,42,44,47,52,51,53,56,60,129,130,132,133,134

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

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

%H A. Karttunen, <a href="/A129610/b129610.txt">Table of n, a(n) for n = 0..2055</a>

%H A. Karttunen, <a href="/A089840/a089840p.txt">Prolog-program which illustrates the construction of this and similar nonrecursive Catalan automorphisms.</a>

%H <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations of Catalan automorphisms</a>

%o (Constructive and destructive Scheme implementation of this automorphism. These act on S-expressions, i.e. list-structures:)

%o (define (*A129610 s) (cond ((pair? s) (let ((t (*A074680 s))) (cons (car t) (*A074679 (cdr t))))) (else s)))

%o (define (*A129610! s) (cond ((pair? s) (*A074680! s) (*A074679! (cdr s)))) s)

%Y Inverse: A129609.

%K nonn

%O 0,3

%A _Antti Karttunen_, May 22 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:22 EDT 2024. Contains 371268 sequences. (Running on oeis4.)