OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A189301号 基于的零一序列A026147美元:a(A026147号(k) )=a(k);一个(A181155号(k) )=1-a(k),a(1)=0。
0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1
评论
首先,奇数和偶数正整数序列被用来生成Thue-Morse序列A010060型,其中0的位置包括A026147号其中1个包含A181155号。然后从这两个序列开始重复该过程,结果是A189301号.
链接
数学
u[n]:=2 n-1;a[1]=0;h=400;
c=(u[#1]&)/@范围[h];(*A005408号*)
d=(补码[范围[Max[#1]],#1]&)[c];(*A005843号*)
表[a[d[[n]]=1-a[n],{n,1,h-1}];(*星期四-莫尔斯:A010060型*)
表[a[c[[n]]]=a[n],{n,1,h}](*A010060型*)
c=压扁[位置[%,0]](*A026147号*)
d=压扁[位置[%%,1]](*A181155号*)
a[1]=0;h=200
表[a[d[[n]]=1-a[n],{n,1,h-1}];(*A189301号*)
表[a[c[[n]]]=a[n],{n,1,h}](*A189301号*)
c=压扁[位置[%,0]](*A189302号*)
d=压扁[位置[%%,1]](*A189303号*)
交叉参考
关键词
非n
作者
克拉克·金伯利2011年4月19日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月28日08:22。包含372907个序列。(在oeis4上运行。)