%I#23 2017年7月20日08:33:01

%S 0,1,1,1,2,1,1,1,3,2,1,3,1,4,2,3,1,5,4,3,2,1,5,1,6,5,3,2,1,5,1,1,7，

%T 4,2,1,7,5,3,1,8,7,5,4,2,1,7,5,1,9,8,7,6,5,43,2,1,9,7,7,7,3,10,8,5，

%U 4,2,1,9,7,5,3,1,11,10,9,8,7,6,5,4,3,2,1,1,7,5,12,11,9,6,4,2,1,11,9,7

%N法利分数的分子，根据增加的k进行排序，k=分子+分母。具有相同k的分数按分母递增的顺序排序。

%C参数k是“分母，分子”表示空间中对应点到原点的曼哈顿距离。

%C分数按顺序开始：0/1，1/1，1/2，1/3，2/3，1/4，1/5，3/4，2/5，1/6，3/5，1/7，4/5，2/7，1/8。

%C注意，分数2/4不在上面，因为它可以减少到1/2。

%t nmax=25；

%t（*fracs是用带顶点的三角形表示的分数

%t（0,1），（1，nmax）和（nmax，nmmax）*）

%t压裂=排序@联合@扁平@桌子[a/b，{b，nmax}，{a，0，b}]；

%t（*首先根据曼哈顿距离的增加，然后根据分母的增加，对生成的分数进行排序*）

%t压裂=

%t排序依据[fracs，{Numerator@#+Denominator@#&，Denominator@#&}]；

%t nmaxlimit=地板[（1/6）*nmax^2]；（*正确排序序列的安全极限，因为生成分数的渐近一半可以根据曼哈顿距离正确排序*）

%t采取[分子@fracsorted，n最大限制]

%Y参见A279782和A279783。

%K nonn，压裂

%O 1.5

%A _Robert G.Wilson v _ and _Andres Cicuttin，2016年12月25日