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 A072095 #5 May 01 2014 02:47:41 %S A072095 0,1,3,2,7,6,8,4,5,17,16,18,15,14,20,19,21,9,10,22,11,12,13,45,44,46, %T A072095 42,43,48,47,49,40,39,50,41,37,38,54,53,55,52,51,57,56,58,23,24,59,25, %U A072095 26,27,61,60,62,28,29,63,30,31,32,64,33,34,35,36,129,128,130,127,126 %N A072095 Permutation of natural numbers induced by the automorphism cdr_robl_cdr! acting on the parenthesizations encoded by A014486. %H A072095 A. Karttunen, <a href="http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm">Gatomorphisms</a> (Includes the complete Scheme program for computing this sequence) %H A072095 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a> %o A072095 (Scheme function implementing this automorphism on list-structures:) %o A072095 (define (cdr_robl_cdr! s) (cond ((not (pair? s))) ((not (pair? (cdr s))) (swap! s)) (else (cdr_robl_cdr! (cdr s)) (robl! s) (cdr_robl_cdr! (cdr s)))) s) %o A072095 (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)) %o A072095 (define (swap! s) (let ((ex-car (car s))) (set-car! s (cdr s)) (set-cdr! s ex-car) s)) %Y A072095 Inverse permutation: A072094. The car/cdr-flipped conjugate of A072092, i.e. A072095(n) = A057163(A072092(A057163(n))). Cf. also A071655-A071660, A072090-A072091. %K A072095 nonn %O A072095 0,3 %A A072095 _Antti Karttunen_, Jun 25 2002