|
| |
|
| A063037号 |
| 没有3个连续相等二进制数字的数字。 |
|
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
|
|
|
评论
|
此外，0与不大于2的成分的指数一起。有关合成索引的定义，请参见A298644型.
例如，105在序列中，因为它的二进制形式是1101001，并且组成[2,1,1,2,1]的任何部分都不大于2。
另一方面，132不在序列中，因为它的二进制形式是10000100，并且组成[1，4，1,2]的一部分大于2。
Maple程序的命令c（n）生成索引为n的合成（End）
|
|
|
链接
|
|
|
|
公式
|
似乎（但尚未证明）{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之间得到验证-约翰·W·莱曼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）；
结束条件：；
#第二届枫叶计划：
运行次数：=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）；如果\\哈里·J·史密斯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：非（'000'in（s：=bin（n）[2:]）或'111'in s），计数（max（0，startvalue））
|
|
|
交叉参考
|
|
|
|
关键词
|
容易的，非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
