A154445 - OEIS

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.

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, 18, 19, 20, 21, 22, 23, 53, 52, 54, 55, 48, 49, 50, 51, 56, 57, 58, 59, 60, 61, 62, 63, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 106, 107, 104, 105, 108, 109

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

A. Karttunen, Table of n, a(n) for n = 0..2047

Index entries for sequences that are permutations of the natural numbers

PROG

(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))))))))

CROSSREFS

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.

Sequence in context: A377355 A371961 A354225 * A165199 A371962 A268825

Adjacent sequences: A154442 A154443 A154444 * A154446 A154447 A154448

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Jan 17 2009

EXTENSIONS

Spelling/notation corrections by Charles R Greathouse IV, Mar 18 2010

STATUS

approved