A154445 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

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