login
A233277
Permutation of nonnegative integers obtained by entangling complementary pair A005187 & A055938 with odd and even numbers..
16
0, 1, 2, 3, 5, 4, 6, 7, 11, 10, 9, 13, 8, 12, 14, 15, 23, 22, 21, 19, 20, 18, 27, 17, 26, 25, 29, 16, 24, 28, 30, 31, 47, 46, 45, 43, 44, 42, 39, 41, 38, 37, 55, 40, 36, 54, 35, 53, 34, 51, 59, 52, 50, 33, 49, 58, 57, 61, 32, 48, 56, 60, 62, 63, 95, 94, 93, 91
OFFSET
0,3
FORMULA
a(0)=0, a(1)=1, and thereafter, if A079559(n)=0, a(n) = 2*a(A234017(n)), else a(n) = 1+(2*a(A213714(n)-1)).
a(n) = A054429(A233275(n)). [Follows from the definitions of these sequences]
PROG
(Scheme, with memoizing definec-macro from Antti Karttunen's IntSeq-library)
(definec (A233277 n) (cond ((< n 2) n) ((zero? (A079559 n)) (* 2 (A233277 (A234017 n)))) (else (+ 1 (* 2 (A233277 (- (A213714 n) 1)))))))
CROSSREFS
Inverse permutation: A233278.
Similarly constructed permutation pairs: A135141/A227413, A232751/A232752, A233275/A233276, A233279/A233280, A003188/A006068.
Sequence in context: A069766 A081241 A180201 * A279339 A279349 A233278
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 18 2013
STATUS
approved