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