cp's OEIS Frontend

A246376 Permutation of natural numbers: a(1) = 1, a(2n) = 2 * a(n), a(2n-1) = 1 + (2 * a(A064989(2n-1)-1)).

%I A246376 #7 Sep 01 2014 11:47:07
%S A246376 1,2,3,4,5,6,9,8,7,10,13,12,21,18,11,16,25,14,33,20,15,26,29,24,17,42,
%T A246376 19,36,53,22,73,32,43,50,37,28,45,66,31,40,57,30,81,52,27,58,61,48,49,
%U A246376 34,35,84,117,38,41,72,87,106,169,44,213,146,67,64,65,86,89,100,91,74,173,56,149,90,51,132,101,62,113,80,23
%N A246376 Permutation of natural numbers: a(1) = 1, a(2n) = 2 * a(n), a(2n-1) = 1 + (2 * a(A064989(2n-1)-1)).
%H A246376 Antti Karttunen, <a href="/A246376/b246376.txt">Table of n, a(n) for n = 1..16384</a>
%H A246376 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A246376 a(1) = 1, a(2n) = 2 * a(n), a(2n-1) = 1 + (2 * a(A064989(2n-1)-1)).
%F A246376 As a composition of related permutations:
%F A246376 a(n) = A246377(A246380(n)).
%F A246376 Other identities. For all n >= 1 the following holds:
%F A246376 A000035(a(n)) = A000035(n). [Like A005940 & A005941, this also preserves the parity].
%o A246376 (Scheme, with memoizing definec-macro)
%o A246376 (definec (A246376 n) (cond ((<= n 1) n) ((even? n) (* 2 (A246376 (/ n 2)))) (else (+ 1 (* 2 (A246376 (- (A064989 n) 1)))))))
%Y A246376 Inverse: A246375.
%Y A246376 Similar or related permutations: A005940, A005941, A064216, A243071, A245605, A246377, A246380.
%Y A246376 Cf. A000035, A064989.
%K A246376 nonn
%O A246376 1,2
%A A246376 _Antti Karttunen_, Aug 27 2014