%I#30 2020年4月6日12:31:37

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

%温度4,5,3,3,4,5,1,3,2,3,4,1,4,6,5,4,4,3,6,4,2,4,4,14,6,1,6,6,7,5,6，

%U 4,4,5,6,4,3,3,4,4,1,5,5,4,3

%N二进制展开中0的最大运行长度+N二进制展开中1的最大运行的长度。

%C所有数字都按此顺序出现。第n个梅森数（A000225）中1的数量为n，第n个梅森数中0的数量为0。0+n=n。参见公式。

%H Robert Israel，n的表，n=0..10000的a（n）</a>

%F a（n）=A087117（n）+A038374（n）。

%对于n>0，F a（A000225（n））=n。

%e n[二进制n]A087117（n）+A038374（n）=a（n）

%e 0[0]1+0=1

%e 1[1]0+1=1

%e 2[10]1+1=2

%e 3[11]0+2=2

%e 4[1 0 0]2+1=3

%e 5[1 0 1]1+1=2

%e 6[1 1 0]1+2=3

%e 7[1 1 1]0+3=3

%e 8[1 0 0]3+1=4

%e 9[1 0 0 1]2+1=3

%e 10[1 0 1 0]1+1=2

%e 11[10 1 1]1+2=3

%e 12[1 1 0 0]2+2=4

%e 13[1 1 0 1]1+2=3

%e 14[1 1 0]1+3=4

%e 15[1 1 1]0+4=4

%p f：=proc（n）局部L；

%p L：=换算（n，基数，2）；

%p max（映射（nops，[ListTools:-Split（`=`，L，1）]）+max（map（nobs，[ListTools:-Slit（`='，L，0）]））

%p端程序：

%p映射（f，[$0..100]）；#_罗伯特·伊斯雷尔，2020年4月6日

%t表格[Sum[Max[Differences[Position[Flatten@{k，Integer Digits[n，2]，k}，k]]，{k，0,1}]-2，{n，0,82}]

%Y参考A000120、A000225、A007088、A023416、A038374、A087117。

%K nonn，基础

%0、3

%A _约书亚·奥利弗_，2019年11月27日