|
0, 1, 3, 2, 6, 8, 7, 19, 16, 5, 15, 4, 14, 52, 43, 51, 42, 20, 22, 53, 60, 21, 61, 56, 179, 155, 178, 154, 177, 164, 557, 163, 556, 11, 39, 13, 41, 151, 123, 153, 125, 12, 40, 33, 117, 152, 124, 471, 381, 477, 553, 479, 555, 505, 1797, 507, 1799, 478, 554, 1536
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
PROG
|
(Scheme functions below show the essential idea. For a complete source, follow the "Gatomorphisms" link.)
(define (arithrank->lexrank-bijection pr1 pr2) (lambda (n) (CatalanRankGlobal (parenthesization->binexp (unrank-bintree n pr1 pr2)))))
(define (unrank-bintree rank pr1 pr2) (cond ((zero? rank) (list)) (else (cons (unrank-bintree (pr1 (-1+ rank)) pr1 pr2) (unrank-bintree (pr2 (-1+ rank)) pr1 pr2)))))
(define (A059905 n) (if (zero? n) n (+ (modulo n 2) (* 2 (A059905 (floor->exact (/ n 4)))))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|