%I #6 May 01 2014 02:49:32
%S 1,5,13,2,23,25,3,9,20,11,95,49,6,223,57,4,39,80,10,45,92,47,383,97,
%T 12,415,208,55,3583,225,29,17,36,19,159,320,40,83,42,22,183,368,46,
%U 189,380,191,1535,193,24,799,400,103,6655,3328,52,220,445,895,57343,897
%N Permutation of N induced by the order-preserving bijection QuQR1toQuQR2 on rationals.
%C This permutation converts the domain between the mappings N2QuQR1 and N2QuQR2 given in A065936 and A065937, i.e. N2QuQR1(j) = N2QuQR2(a[j])
%H <a href="/index/St#Stern">Index entries for sequences related to Stern's sequences</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%p [seq(QuQR1toQuQR2(j),j=1..128)];
%p QuQR1toQuQR2 := proc(n) local m; m := n + 2^floor_log_2(n); frac2position_in_whole_SB_tree(Q0_1toQ(SternBrocotTreeNum(m)/SternBrocotTreeDen(m))); end;
%p Q0_1toQ := proc(rr) local r,i; r := rr; i := 0; while(r >= 1/2) do r := 2*(r-(1/2)); i := i+1; od; RETURN(i + (2*r)); end;
%Y Inverse permutation: A065935. For other needed Maple procedures, see A007305, A047679 and A054424. A065939[n] = a[A065938[n]].
%K nonn
%O 1,2
%A _Antti Karttunen_, Dec 07 2001
|