A297824-OEIS公司

A297824型

从二进制字符串11011100…n中删除所有运行的迭代次数（由前n个二进制数串联而成，请参阅A058935号（n））。

0, 1, 1, 1, 1, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 9, 10, 10, 10, 10, 10, 10, 9, 8, 8, 10, 7, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 9, 10, 9, 10, 9, 10, 10, 8, 9, 9, 10, 10, 9, 7, 9, 10, 10, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,6

每次迭代都会删除该迭代开始时出现的两个或多个相同位的所有运行。根据定义，最后字符串的位将是0、1、0、1…的初始段，可能为空。。。(A000035号)或1、0、1、0。。。(A059841号).A297825型给出了最终字符串的长度；每个非零项的符号表示发生了哪种情况。

链接

Rick L.Shepherd，n=1..10000时的n，a（n）表

例子

a（21）=6，因为11011100101110111100100110101011110011011110111110000110010100111010010101-->01001010100011010110101-->01101010100101-->0010101101-->101001-->1011-->10，其中每个箭头指向一次迭代的结果。

黄体脂酮素

（PARI）

{remove_runs（v）=我的（w，run_found=0）；

如果（#v==1，w=v，w=[]）；

对于（k=2，#v，

如果（v[k-1]==v[k]，

run_found=1，

如果（运行查找==0，w=concat（w，v[k-1]），运行查找=0）；

如果（k==#v，w=concat（w，v[k]））

)

); w}型

{a（n）=my（v=[]，L，c=0）；\\remove“write（…）；”如果不需要其他b文件

对于（k=1，n，v=concat（v，二进制（k）））；

L=#v；

而（1，

v=删除运行（v）；

如果（#v==L，写入（“b297825.txt”，n，“”，L*（如果（L==0，0，2*v[1]-1））；断裂，L=#v）；

c（c）++

); 抄送}

对于（n=110000，写入（“b297824.txt”，n，“”，a（n）））\\创建了两个b文件

交叉参考

囊性纤维变性。A000035号,A059841号,A058935号,A297825型.

上下文中的序列：A350697飞机 A327441型 A335855型*A281796型 A072376号 A131883号

相邻序列：A297821型 A297822型 A297823型*A297825型 A297826型 A297827型

关键词

非n,基础

作者

里克·L·谢泼德，2018年1月6日

状态

经核准的