|
| |
|
| A140690型 |
| 如果以二进制形式写入的n可以细分为多个长度相等的运行，则包含正整数n，从左侧开始的第一个运行包含所有1，下一个运行包含全部0，下一次运行包含全部1，下次运行包含所有0，等等。 |
|
6
|
|
|
|
1, 2, 3, 5, 7, 10, 12, 15, 21, 31, 42, 51, 56, 63, 85, 127, 170, 204, 240, 255, 341, 455, 511, 682, 819, 992, 1023, 1365, 2047, 2730, 3276, 3640, 3855, 4032, 4095, 5461, 8191, 10922, 13107, 16256, 16383, 21845, 29127, 31775, 32767, 43690, 52428, 61680
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
也包括成分相等的指数。
我们将组合的索引定义为正整数，其二进制形式的运行长度（即从左到右运行1次、运行0次等）等于组合的各个部分。示例：组合[1,1,3,1]的索引为46，因为46的二进制形式为101110。整数992在序列中，因为它的二进制形式是11111000000，并且组成[5,5]的部分相等。整数100不在序列中，因为它的二进制形式是1100100，并且组成[2,2,1,2]的部分不相等。
Maple程序的命令c（n）生成索引为n的合成（End）
|
|
|
链接
|
|
|
|
例子
|
二进制中的819是1100110011。0和1的运行为（11）（00）（11）。每次跑步（交替1次和0次）的长度相同。所以819在序列中。
|
|
|
MAPLE公司
|
运行次数：=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:={}：对于n到62000，如果nops（convert（c（n），set））=1，则A:=`union`（A，{n}）else end if end do:A；#枫叶计划的大部分是由W.Edwin Clark完成的-Emeric Deutsch公司2018年1月25日
|
|
|
数学
|
选择[Range[62000]，Length[Union[Length/@Split[Integer Digits[#，2]]]==1&](*哈维·P·戴尔2012年3月22日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。集合（singleton、deleteFindMin、insert）
a140690 n=a140690_列表！！（n-1）
a140690_list=f$singleton（1，1，2），其中
f s | k==1=m:f（插入（2*b-1，1，2*b）$插入（b*m，k+1，b）s’）
|偶数k=m:f（插入（b*m+b-1，k+1，b）s'）
|否则=m:f（插入（b*m，k+1，b）s'）
其中（（m，k，b），s'）=deleteFindMin s
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
