id:A082857 - OEIS Search Results

Search: id:A082857

Displaying 1-1 of 1 results found.

page 1

Inverse function of N -> N injection A082856.

+0
4

0, 1, 0, 2, 0, 3, 0, 6, 0, 0, 0, 4, 0, 0, 0, 14, 0, 0, 0, 0, 0, 7, 0, 16, 0, 0, 0, 0, 0, 0, 0, 42, 0, 0, 0, 5, 0, 0, 0, 15, 0, 0, 0, 11, 0, 0, 0, 39, 0, 0, 0, 0, 0, 0, 0, 43, 0, 0, 0, 0, 0, 0, 0, 123, 0, 0, 0, 0, 0, 8, 0, 19, 0, 0, 0, 0, 0, 0, 0, 51, 0, 0, 0, 0, 0, 20, 0, 53, 0, 0, 0, 0, 0, 0, 0, 154, 0, 0, 0, 0, 0, 0, 0, 52, 0, 0, 0, 0, 0, 0, 0, 151, 0, 0, 0, 0, 0, 0, 0, 155 (list; graph; listen)

	OFFSET	`0,4`
	COMMENT	`a(n) = 0 for those n which do not occur as the values of A082856. All positive natural numbers occur here once.`
	LINKS	`A. Karttunen, Alternative Catalan Orderings (with the complete Scheme source)`
	PROGRAM	`(Scheme-functions showing the essential idea. For the full source, follow the "Alternative Catalan Orderings" link.)` `(define A082857 (compose-funs A080300 parenthesization->binexp decode-A082856-code))` `(define (decode-A082856-code code) (call-with-current-continuation (lambda (exit) (let recurse ((code code)) (cond ((zero? code) (list)) ((even? code) (exit '())) (else (let ((even-bits (A059905 (floor->exact (/ code 2)))) (odd-bits (A059906 (floor->exact (/ code 2))))) (cons (recurse odd-bits) (recurse even-bits)))))))))`
	CROSSREFS	`A082857(A082856(n)) = n for all n. Cf. also A072634-A072637, A075173-A075174.` `Sequence in context: A138325 A117175 A090482 this_sequence A081155 A130628 A076563` `Adjacent sequences: A082854 A082855 A082856 this_sequence A082858 A082859 A082860`
	KEYWORD	`nonn`
	AUTHOR	`Antti Karttunen (MyFirstname.MySurname(AT)iki.fi) May 06 2003`

page 1

Search completed in 0.002 seconds

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

AT&T Labs Research