login
Infinite binary tree inspired permutation of N: 1 -> 3, 11ab..yz -> 11ab..yz1, 10ab..y0 -> 10ab..y, 10ab..y1 -> 11ab..y0.
6

%I #5 May 01 2014 02:42:47

%S 3,1,7,2,6,13,15,4,12,5,14,25,27,29,31,8,24,9,26,10,28,11,30,49,51,53,

%T 55,57,59,61,63,16,48,17,50,18,52,19,54,20,56,21,58,22,60,23,62,97,99,

%U 101,103,105,107,109,111,113,115,117,119,121,123,125,127,32,96,33,98

%N Infinite binary tree inspired permutation of N: 1 -> 3, 11ab..yz -> 11ab..yz1, 10ab..y0 -> 10ab..y, 10ab..y1 -> 11ab..y0.

%C On the right side every node replaces its right child, on the left side the left children replace their parents and the right children are transferred to the same offset - 1 at the right side (becoming left children). See comment at A065263.

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%p RightChildTransferred_1 := proc(n) local k; if(1 = n) then RETURN(3); fi; k := floor_log_2(n)-1; if(3 = floor(n/(2^k))) then RETURN((2*n)+1); fi; if(0 = (n mod 2)) then RETURN(n/2); fi; RETURN(n + (2^k) - 1); end;

%Y A057114, A065263, A065269, A065275, A065281. Inverse: A065288, conjugated with A059893: A065289 and the inverse of that: A065290.

%K nonn

%O 1,1

%A _Antti Karttunen_, Oct 28 2001