%I#31 2023年3月10日02:32:12

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

%温度3,2,2,3,3,2,1,2,2,2,34,4,3,2,2,2,2,2,2,2,2,2,22,2,33,33,4,5,6,6,5,4,4,1,3，

%U 3,3,3,1,2,2,2,3,4,3,2,2,1,2,1,2,2,3,1,3,2,2,3,32,4,5,4,2,3,12,3,2

%N a（N）=N的以2为基数表示的最大运行长度。

%C k的第一次出现是在n=2^k-1且没有最后一次出现时_Robert G.Wilson v_，2008年12月14日

%C序列A000975、A037969、A037970、A037971列出了a（n）=1、a（n）=2、a（n）=3、a（n）=4的编号_M.F.Hasler，2013年7月23日

%C a（n）=最大值（A101211（n，k）：k=1..A005811（n））.-_Reinhard Zumkeller_，2013年12月16日

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%p A043276:=程序（n）

%p局部a，rl，i；

%p如果n>0，则

%p rl：=1；

%p其他

%p rl:=0；

%p end if；

%p a：=rl；

%p-dgs:=转换（n，基数，2）；

%p代表i从2到nops（dgs）do

%p如果op（i，dgs）=op（i-1，dgs），则

%p rl：=rl+1；

%p a：=最大值（a，rl）；

%p其他

%p a：=最大值（a，rl）；

%p rl：=1；

%p end if；

%p端do：

%p a；

%p端程序：

%p序列（A043276（n），n=1…80）；#_R.J.Mathar，2021年6月4日

%t f[n_]：=最大值@@长度/@拆分@整数位数【n，2】；阵列[f，105]（*Robert G.Wilson v_，2008年12月14日*）

%o（PARI）A043276（n，b=2）={my（m，c=1）

%o（PARI）a（n）=我的（r，t）；而（n，t=估值（n，2）；如果（t>r，r=t）；n> >=t；t=估价（n+1,2）；如果（t>r，r=t）；n> >=t）；2016年11月2日，查尔斯·格里特豪斯四世

%o（哈斯克尔）

%o a043276=最大值。a101211_低--_Reinhard Zumkeller_，2013年12月16日

%o（Python）

%o从itertools导入groupby

%o def A043276（n）：返回最大值（len（list（g））for k，g in groupby（bin（n）[2:]））#_Chai Wah Wu_，2023年3月9日

%对于碱基-3至碱基-16类似物，Y参考A043277-A043290。

%K nonn，基础，看

%氧1,3

%百灵鸟金伯利_

%E更多条款摘自2008年12月14日_Robert G.Wilson v_