|
%I #6 Mar 31 2012 13:21:17
%S 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 18,19,20,21,22,23,53,52,54,55,48,49,50,51,56,57,58,59,60,61,62,63,32,
%U 33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,106,107,104,105,108,109
%N 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 A. Karttunen, <a href="/A154445/b154445.txt">Table of n, a(n) for n = 0..2047</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%o (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 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 nonn,base
%O 0,3
%A _Antti Karttunen_, Jan 17 2009
%E Spelling/notation corrections by _Charles R Greathouse IV_, Mar 18 2010
|
