|
%I #5 May 01 2014 02:42:46
%S 1,3,7,6,2,13,15,12,4,14,5,25,27,29,31,24,8,26,9,28,10,30,11,49,51,53,
%T 55,57,59,61,63,48,16,50,17,52,18,54,19,56,20,58,21,60,22,62,23,97,99,
%U 101,103,105,107,109,111,113,115,117,119,121,123,125,127,96,32,98,33
%N Infinite binary tree inspired permutation of N: 1 -> 1, 11ab..yz -> 11ab..yz1, 10ab..y1 -> 10ab..y, 10ab..y0 -> 11ab..y0.
%C On the right side every node replaces its right child, on the left side the right children replace their parents and the left children are transferred to the same offset at the right side (staying 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 LeftChildTransferred := proc(n) local k; if(1 = n) then RETURN(1); fi; k := floor_log_2(n)-1; if(3 = floor(n/(2^k))) then RETURN((2*n)+1); fi; if(1 = (n mod 2)) then RETURN((n-1)/2); fi; RETURN(n + (2^k)); end;
%Y A057114, A065263, A065269, A065275, A065287. Inverse: A065282, conjugated with A059893: A065283 and the inverse of that: A065284.
%K nonn
%O 1,2
%A _Antti Karttunen_, Oct 28 2001
|
