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 A154445 #6 Mar 31 2012 13:21:17 %S A154445 0,1,3,2,6,7,4,5,13,12,14,15,8,9,10,11,26,27,24,25,28,29,30,31,16,17, %T A154445 18,19,20,21,22,23,53,52,54,55,48,49,50,51,56,57,58,59,60,61,62,63,32, %U A154445 33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,106,107,104,105,108,109 %N A154445 Permutation of nonnegative integers induced by Basilica group generating wreath recursion: a = (b,1), b = s(a,1), starting from the active (swapping) state b. %H A154445 A. Karttunen, <a href="/A154445/b154445.txt">Table of n, a(n) for n = 0..2047</a> %H A154445 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a> %o A154445 (MIT Scheme:) (define (A154445 n) (if (< n 2) n (let loop ((maskbit (A072376 n)) (p 1) (z n)) (cond ((zero? maskbit) z) ((not (zero? (modulo (floor->exact (/ n maskbit)) 2))) (- z (* p maskbit))) (else (loop (floor->exact (/ maskbit 2)) (- 1 p) (+ z (* p maskbit)))))))) %Y A154445 Inverse: A154446. a(n) = A154439(A153141(n)) = A054429(A154441(A054429(n))). Cf. A072376, A153141-A153142, A154435-A154436, A154439-A154448. Corresponds to A154455 in the group of Catalan bijections. %K A154445 nonn,base %O A154445 0,3 %A A154445 _Antti Karttunen_, Jan 17 2009 %E A154445 Spelling/notation corrections by _Charles R Greathouse IV_, Mar 18 2010