编号：A063037-OEIS

搜索： 编号：a063037

显示1-1个结果（共1个）。

第页1

排序：关联|参考文献|数|被改进的|创建格式：长的|短的|数据

A063037号

没有3个连续相等二进制数字的数字。

+0
12

0, 1, 2, 3, 4, 5, 6, 9, 10, 11, 12, 13, 18, 19, 20, 21, 22, 25, 26, 27, 36, 37, 38, 41, 42, 43, 44, 45, 50, 51, 52, 53, 54, 73, 74, 75, 76, 77, 82, 83, 84, 85, 86, 89, 90, 91, 100, 101, 102, 105, 106, 107, 108, 109, 146, 147, 148, 149, 150, 153, 154, 155, 164, 165, 166

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

抵消

1,3

的补语A136037号; 十字路口A003796号和A003726号. -莱因哈德·祖姆凯勒2007年12月11日

发件人Emeric Deutsch公司2018年1月27日：（开始）

此外，0与不大于2的成分的指数一起。有关合成索引的定义，请参见A298644型.

例如，105在序列中，因为它的二进制形式是1101001，并且组成[2,1,1,2,1]的任何部分都不大于2。

另一方面，132不在序列中，因为它的二进制形式是10000100，并且组成[1，4，1,2]的一部分大于2。

Maple程序的命令c（n）生成索引为n的合成（End）

序列包含A000045号二进制长度为n的（n+1）正项-雷米·西格里斯特2022年9月30日

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..10000时的n，a（n）表

配方奶粉

似乎（但尚未证明）{a（n）}的项可以如下递归计算。设{c（i）}被定义为i>=4，如果i是3的倍数，否则c（i，=2c（i-1）-1，其中c（4）=1。即，{c（I）}={1,1,3,5,9,19,37,73147，…}，对于I=4,5,6。设a（1）=1，a（2）=2，a（3）=3。对于n>3，选择k，使F（k）-2<n<=F（k+1）-2，其中F（k(A000045号). 则a（n）＝c（k）+2a（F（k）-2）-a（2F（k）-n-3）。这一点已在n到1100之间得到验证-约翰·莱曼2009年5月26日

例子

9（1001）的二进制表示没有3个连续的相等数字。

MAPLE公司

isA063037:=进程（n）

本地bdgs，rep，d，i；

如果n＝0，那么

返回true；

结束条件：；

bdgs:=转换（n，基数，2）；

代表：=1；

d：=op（1，bdgs）；

对于i从2到nops（bdgs）do

如果op（i，bdgs）=op（i-1，bdg），则

代表：=代表+1；

其他的

代表：=1；

结束条件：；

如果rep>2，则

返回false；

结束条件：；

结束do：

返回true；

结束进程：

对于从0到50 do的n

如果是A063037（n），则

printf（“%d，”，n）；

结束条件：；

结束do：#R.J.马塔尔2013年12月18日

#第二届枫叶计划：

运行次数：=proc（L）local j，r，i，k:j:=1:r[j]：=L[1]：对于i从2到nops（L）do，如果L[i]=L[i-1]，那么r[j]:=r[j'，L[i]else j:=j+1:r[j]：=L[i]end，如果end do:[seq（[r[k]]，k=1..j）]end proc:运行长度：=prog（L）map（nops，Runs（L）））end proc：=proch（n）ListTools:-Reverse（convert（n，base，2））:RunLengths（%）end进程：A:={0}：对于n到250，do-if-`subset`（convert（c（n），set），{1，2}）then A:=`union`（A，{n}）else end-if-end-do:A；#这项Maple计划的大部分原因是W·埃德温·克拉克. -Emeric Deutsch公司2018年1月27日

数学

选择[Range[0，168]，AllTrue[Length/@Split@IntegerDigits[#，2]，#<3&]&](*迈克尔·德弗利格2017年8月20日*）

黄体脂酮素

（PARI）{n=0；对于（m=0，10^9，x=m；t=1；b=2；while（x>0，d=x-2*（x\2）；x\=2；如果（d==b，c++；如果（c==3，t=x=0），b=d；c=1）；如果（t，写（“b063037.txt”，n++，“”，m）；如果\\哈里·史密斯2009年8月16日

（PARI）a（n）={n-；如果（n<=1，return（n），my（s=1）；对于（i=1，oo，my，f=fibonacci（i+1））；如果（n<s+f，returns（2^i-1-a（2*s-n）），s+=f））}\\雷米·西格里斯特2022年9月30日

（Python）

从itertools导入计数，islice

定义A063037号_gen（startvalue=0）：#术语生成器>=startvalue

返回筛选器（lambda n：not（（s：=bin（n）[2:]中的“00”）或s中的“111”），count（max（0，startvalue））

A063037号_list=列表（岛屿(A063037号_发电机（），20））#柴华武2022年10月4日

交叉参考

囊性纤维变性。A000045号,A000975号,A166535号,1986年2月.

关键词

容易的,非n

作者

利奥庄园2001年7月5日

扩展

推测重现中缺少“小于”符号（由于富兰克林·T·亚当斯-沃特斯指出这一点）约翰·莱曼2009年11月9日

状态

经核准的

第页1

搜索在0.004秒内完成