%I#14 2017年11月29日06:39:36

%S 0,1,1,2,3,1,2,5,2,5,1,4,1,3,4,7,3,8,5,7,2,7,5,8,3,7,4,5,1,5,9,4，

%T 11,7,10,3,11,8,13,5,12,7,9,9,7,12,5,13,8,11,3,10,7,11,4,9,5,6,1,5，

%U 6,11,5,14,9,13,4,15,11,18,7,17,10,13,3,14,11,19,8,21,13,18,5,17,12,19,7,16

%L树的N个分子，从左到右枚举。

%C a（n）是A174980的子序列。a（n）/A002487（n+2）只枚举一次所有约化的非负有理数（L-树）。

%H Edsger Dijkstra，《计算机文选》，施普林格出版社，1982年，第232页<a href=“http://www.cs.utexas.edu/users/EWD/ewd05xx/EWD578.PDF“>EWD 578：关于fusc函数的更多信息。

%H Peter Luschny，<a href=“http://www.oeis.org/wiki/用户：Peter_Luschny/SternsDiatomic“>有理树和二进制分区。

%H Moritz A.Stern，《尤伯·埃因·扎赫伦特·托雷蒂什功能》，<A href=“http://www.digizeitschriften.de/resolppn/GDZPPN002150301“>J.Reine Angew.数学，55（1858），193-220。

%e序列分裂成长度为2^k的行：

%e 0，

%e 1、1、，

%e 2、3、1、2、，

%e第3、5、2、5、3、4、1、3、，

%e第4、7、3、8、5、7、2、7、5、8、3、7、4、5、1、4、，

%e。。。

%e分数为

%e 0/1，

%e 1/2、1/1，

%e 2/3、3/2、1/3、2/1、，

%e 3/4、5/3、2/5、5/2、3/5、4/3、1/4、3/1、，

%e 4/5、7/4、3/7、8/3、5/8、7/5、2/7、7/2、5/7、8/5、3/8、7/3、4/7、5/4、1/5、4/1，

%e。。。

%p SternDijkstra:=proc（L，p，n）局部k，i，len，M；长度：=nops（L）；M：=L；k：=n；当k>0 do M[1+（k mod len）]：=相加（M[i]，i=1.len）时；k：=iquo（k，len）；od；op（p，M）结束：

%p树：=proc（n）5*2^ilog2（n+1）；斯特恩迪克斯特拉（[0,1]，1，n+2+%）/斯特恩迪克斯特拉（[1,0]，2，n+2）结束：

%pa:=程序（n）5*2^ilog2（n+1）；SternDijkstra（[0,1]，1，n+2+%）结束：

%p序列（a（n），n=0..90）；

%t SternDijkstra[L_，p_，n_]：=模块[{k，i，len，M}，len：=长度[L]；M=L；k=n；当[k>0，M[[1+Mod[k，len]]]=和[M[[i]]，{i，1，len}]时；k=商[k，len]]；M[[p]]]；Ltree[n_]：=使用[{k=5*2^Simplify[Floor[Log[2，n+1]]}，SternDijkstra[{0，1}，1，n+2+k]/SternDijkstra[{1，0}，2，n+2]]；a[0]=0；a[n_]：=使用[{k=5*2^Simplify[Floor[Log[2，n+1]]}，SternDijkstra[{1，0}，1，n+2+k]]；行[0]={a[0]}；行[n_]：=表[a[k]，{k，2^n-3，2^（n+1）-4}]//反向；表[第[n]行，{n，0，6}]//扁平（*_Jean-François Alcover_，2013年7月26日，以Maple命名*）

%Y参见A002487、A070879、A047679、A007306、A174980。

%K easy、non、frac、tabf

%0、4

%A _彼得·卢什尼，2010年4月3日