0,3

Table of n, a(n) for n=0..70.

A. Karttunen, Gatomorphisms (Includes the complete Scheme program for computing this sequence)

Index entries for the sequences induced by list functions of Lisp

Index entries for signature-permutations induced by Catalan automorphisms

Similar function for Maple lists can be implemented as: reverse := proc(a) if 0 = nops(a) then (a) else [op(reverse(cdr(a))), a[1]]; fi; end;

(Scheme function implementing this automorphism on list-structures:) reverse

(Destructive variant, see A057509 for Rol!) (define (Rev1! s) (cond ((pair? s) (Rev1! (cdr s)) (Rol! s))) s)

(Another variant, see A057510 for Ror!) (define (Rev2! s) (cond ((pair? s) (Ror! s) (Rev2! (cdr s)))) s)

The car/cdr-flipped conjugate of A069769, i.e. A057508(n) = A057163(A069769(A057163(n))). Cf. also A057164, A057509, A057510, A033538.

Sequence in context: A130945 A073285 A057512 * A057164 A085175 A130111

Adjacent sequences: A057505 A057506 A057507 * A057509 A057510 A057511

nonn

Antti Karttunen Sep 03 2000

approved