%I#11 2015年12月18日19:15:14

%S 0,1,1,1,3,1,3,7,1,1,3,1,7,15,1,1,2,1,1,1,1,3,11,3,3,3,1,1,7,3,15,31,1，

%T 1,1,3,1,1,3,7,1,1,1,3,3,1,7,15,3,1,1,1,2,7,1,1,1,3,5,1,63,1，

%U 1,1,1,1,3,7,1,1,3,3,1,7,15,1,1,3,1,1,3、1,3,3,7,3,1,1,1,5,31、3,1,3,1、3,1

%N以二进制形式写入N；a（n）=由1的最右边块表示的数字。

%e 13=1101，因此a（13）=1。

%t rb1[n_]：=模块[{id=Split[IntegerDigits[n，2]]}，如果[MemberQ[Last[id]，0]，FromDigits[id[[2]]，2]，FromBigits[id[[-1]]，2]]；加入[{0}，Array[rb1100]]（*哈维·P·戴尔，2015年12月18日*）

%Y参考A089309-A089313。

%Y a（2n+1）=A038712（n+1）。

%K nonn，基础

%O 0.4

%A _N.J.A.Sloane，2003年12月22日

%E更多条款摘自_Vladeta Jovovic_，2004年1月20日