%I#18 2014年5月12日21:30:52

%S 0,0,00,0,1,0,0，0,2,1,0,1,0，0，0,1,2,2,1,1,1,1,1，1,1,0,0，

%温度3,3,2,1,2,1,1,2,1,2,1,1,1,1,1,0,3,2,1,1,11,1,0,0,2,1,1,1,0,1,0,1,5,4,4，

%U 3,1,3,3,2,2,1,1,2,2,1,2,1,1,3,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,4,3,3

%N以二进制形式写入N；a（n）=删除任何尾随的0后，最右边的0块中的0个数。

%H Harvey P.Dale，n表，n=0..1000的a（n）</a>

%e 9=1001，因此a（9）=2。

%t bd[n_]：=模块[{s=Split[IntegerDigits[n，2]]}，其中[Length[s]<3,0，MemberQ[Last[s]，1]，Length[s[[2]]]，True，Length[s[[-3]]]；阵列[bd，120,0]（*_Harvey P.Dale_，2013年12月29日*）

%o（PARI）a（n）=局部（b，c，s）：b=二进制（n）：c=长度（b）：while（！b[c]，c=c-1）：while（c>0&&b[c]，c=c-1）：if（c<=0.0，s=0：while（！b[c]，c=c-1:s=s+1）：s）\\_Ralf Stephan_

%Y参考A089309-A089313。与A086784不同。

%K nonn，基础

%0、10

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

%E更多条款，来自_Ralf Stephan，2004年2月1日