提出
经核准的
编辑
（麻省理工学院 /GNU（全球导航单元） 方案:)（定义（a153142 n）（如果（<n 2）n（let loop（（掩码位（a072376 n））（z n）））（cond（（零？掩码位）z）（（零）（模（地板->精确（/n掩码位））2））（+z掩码位）（else（loop（地板->准确（/maskbit 2））））
尤拉门迪：谢谢。
在正有理数的Stern-Brocot计数系统中(A007305号/A047679号)，此置换将分子转换为分母：A0047679号A047679号（n）=A007305号（a（n））-尤拉门迪2020年8月30日
奥马尔·波尔：更正了拼写错误。
在Stern-Brocot正理性枚举系统中(A007305号/A047679号)，此置换将分子转换为分母：A0047679（n）=A007305号（a（n））-尤拉门迪2020年8月30日
（右）
maxlevel<-5#（可选）
a<-1
for（m in 1:maxlevel）{
a[2^（m+1）-1]<-2^m
a[2^（m+1）-2]<-2^ m+1
for（0中的k：（2^m-2））{
a[2^（m+1）+2*k]<-2*a[2^m+k]
a[2^（m+1）+2*k+1]<-2*a[2^m+k]+1}
}
a<-c（0，a）
#尤拉门迪2020年8月30日
