A297824-OEIS公司

1978年2月24日

从二进制字符串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，因为11011100101110111100010010110101011110011110111110000100101001111010101010-->0100101010011010101-->0110101010011-->0010101101-->10101-->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，binary（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日

状态

经核准的