%I#12 2021年12月13日03:03:52
%S 1,2,4,3,8,5,16,7,6,9,32,17,64,15,13,12,10,33128,14,11,65256,31,25,
%电话:24,18129512,29,202571024,63,30,28,49,48,21,19,345132048,26,23,
%电话:10254096127,61,57,27,97,96,22,40,36,6620498192,62,56,41,354097
%N自然数置换:将分数A038567/A038566映射到Stern-Brocot树的右侧(N/m>1)。
%H<a href=“/index/St#Stern”>与Stern序列相关的序列的索引项</a>
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%e Stern-Brocot树右侧:1/1 2/1 3/2 3/1 4/3 5/3 5/2 4/1 5/4 7/5 8/5 7/4 7/3 8/3 7/2 5/1
%e A038567/A038566:1/1 2/1 3/1 3/2 4/1 4/3 5/1 5/2 5/3 5/4 6/1 6/5 7/1 7/2 7/3 7/4
%p A038567_A038566_to_SternBrocot_permutation:=程序(u)局部a,n,i;a:=[];对于n从1到u,do对于i从1到n,do如果(1=igcd(n,i)),则a:=[op(a),cfrac2binexp(convert(n/i),coneac))+1];fi;od;od;返回(a);结束;#A054424中给出了cfrac2binexp。
%Y A038567/A038566=左移位(A007306)/A047679(A054427(.))。
%Y逆置换:A054428。
%K nonn公司
%O 1,2号机组
%安蒂·卡图恩_
|