This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A082857 #6 Jan 12 2024 07:47:48 %S A082857 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, %T A082857 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, %U A082857 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 %N A082857 Inverse function of N -> N injection A082856. %C A082857 a(n) = 0 for those n which do not occur as the values of A082856. All positive natural numbers occur here once. %H A082857 Antti Karttunen, <a href="http://www.iki.fi/~kartturi/matikka/Nekomorphisms/ACO1.htm">Alternative Catalan Orderings</a> (with the complete Scheme source) %F A082857 a(A082856(n)) = n for all n. %o A082857 (Scheme-functions showing the essential idea. For the full source, follow the "Alternative Catalan Orderings" link.) %o A082857 (define A082857 (compose-funs A080300 parenthesization->binexp decode-A082856-code)) %o A082857 (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))))))))) %Y A082857 Cf. A082856, A072634-A072637, A075173-A075174. %K A082857 nonn %O A082857 0,4 %A A082857 _Antti Karttunen_, May 06 2003