id:A072797 - OEIS Search Results

Search: id:A072797

Displaying 1-1 of 1 results found.

page 1

Self-inverse permutation of natural numbers induced by the gatomorphism gmA072797! acting on the parenthesizations encoded by A014486.

+0
33

0, 1, 2, 3, 4, 5, 7, 6, 8, 9, 10, 11, 12, 13, 17, 18, 16, 14, 15, 20, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 45, 46, 48, 49, 50, 44, 47, 42, 37, 38, 43, 39, 40, 41, 54, 55, 53, 51, 52, 57, 56, 58, 59, 61, 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71 (list; graph; listen)

	OFFSET	`0,3`
	LINKS	`A. Karttunen, Gatomorphisms (with the complete Scheme source)` `Index entries for sequences that are permutations of the natural numbers`
	PROGRAM	`(Scheme function implementing this automorphism on list-structures:)` `(define (gmA072797! s) (cond ((not (pair? s)) s) ((not (pair? (car s))) s) (else (swap! s) (robl! s) (swap! (car s)) s)))` `(define (robl! s) (let ((ex-car (car s))) (set-car! s (cddr s)) (set-cdr! (cdr s) ex-car) (swap! (cdr s)) (swap! s) s))` `(define (swap! s) (let ((ex-car (car s))) (set-car! s (cdr s)) (set-cdr! s ex-car) s))`
	CROSSREFS	`The car/cdr-flipped conjugate of A072796, i.e. A072797(n) = A057163(A072796(A057163(n))). Occurs for first time in A073200 as row 179. Fixed point counts and cycle counts are given in A073190 and A073191.` `Sequence in context: A085729 A073907 A131424 this_sequence A131169 A131170 A082338` `Adjacent sequences: A072794 A072795 A072796 this_sequence A072798 A072799 A072800`
	KEYWORD	`nonn`
	AUTHOR	`Antti Karttunen Jun 12 2002`

page 1

Search completed in 0.002 seconds

Last modified July 25 07:41 EDT 2008. Contains 142293 sequences.

AT&T Labs Research