login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A072656 Permutation of natural numbers induced by reranking plane binary trees given in the standard lexicographic order (A014486) with an "arithmetic global ranking algorithm", using packA048680oA054238 as the packing bijection N X N -> N. 8
0, 1, 3, 2, 11, 6, 5, 7, 4, 100, 27, 24, 45, 14, 18, 10, 13, 62, 17, 8, 15, 28, 9, 1988, 477, 179, 1100, 116, 150, 61, 113, 2090, 147, 35, 189, 302, 58, 162, 44, 39, 73, 23, 34, 20, 102, 1229, 295, 29, 111, 680, 72, 21, 12, 26, 93, 38, 47, 70, 1292, 91, 16, 22, 117, 187 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

A. Karttunen, Gatomorphisms

Index entries for sequences that are permutations of the natural numbers

PROG

(Scheme functions below show the essential idea. For a complete source, follow the "Gatomorphisms" link.)

(define A072656 (lexrank->arithrank-bijection packA048680oA054238))

(define (lexrank->arithrank-bijection packfun) (lambda (n) (rank-bintree (binexp->parenthesization (A014486 n)) packfun)))

(define (rank-bintree bt packfun) (cond ((not (pair? bt)) 0) (else (1+ (packfun (rank-bintree (car bt) packfun) (rank-bintree (cdr bt) packfun))))))

(define (packA048680oA054238 x y) (A048680 (packA054238 x y)))

(define (packA054238 x y) (+ (A000695 x) (* 2 (A000695 y))))

CROSSREFS

Inverse permutation: A072657. Cf. also A014486, A000695, A054238, A048680, A071651, A072634, A072636, A072646, A072658, A072660.

Sequence in context: A238398 A065014 A013945 * A191669 A163841 A276589

Adjacent sequences:  A072653 A072654 A072655 * A072657 A072658 A072659

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jun 02 2002

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 17 18:27 EST 2019. Contains 319250 sequences. (Running on oeis4.)