%I#12 2020年8月5日18:15:38

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

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

%U 6,1,7,2,11,3,14,3,13,4,15,18,5,17,4,13,5,14,7,19,8,21,7,18,7,17,8,19,7

%N首先读取Stern-Brocot树（A007305/A007306）左半部分分数的分子，然后读取分母。

%H N.J.A.Sloane，stern-brocot.html“>斯特恩·布罗科或法利树</a>

%H<a href=“/index/St#Stern”>与Stern序列相关的序列的索引项</a>

%t来自_Peter Luschny_的贡献，2009年4月27日：（开始）

%tsbt[n_]：=模[{P，L，Y}，P={{1,0}，{1,1}；L={1,1{，{0,1}}；Y={1,0{，}；w[b]：=折叠[#1.如果[#2==0，L，P]&，Y，b]；u[a]：={a[[2,1]]+a[[2,2]，a[[1,1]]+a[[1,2]]}；s[l]：={l，{Last[l]，First[l]}；映射[s，映射[u，映射[w，部分[Partition[Tuples[{0,1}，n]，2^（n-1）]，1]]]

%t展平[Append[{1,1}，Table[Map[First，sbt[i]]，{i，1,5}]]（End）

%Y参见A007305、A047679、A007306、A002487、A057431。

%K nonn，简单

%0、4

%A _N.J.A.Sloane，2000年9月8日

%E来自阿诺德的更多条款，2000年9月11日

%E Joshua Zucker提供的更多条款，2006年5月11日