登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A280816型 所有子序列分布具有最大均匀性的伪随机二元序列。
1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
在第一项a(1)=1之后,选择每个后续项,以最小化直方图的方差,直方图累积了被视为循环序列的序列上所有可能的子序列的出现次数。如果方差不随下一学期的不同选择而变化,则使用上一学期的补语。
前1000个术语中有485个1-拉尔斯·布隆伯格2017年1月26日
链接
拉尔斯·布隆伯格,n=1..1000时的n,a(n)表
数学
(*SubSeq[x,i,k]给出了从圆序列x*的位置i开始的长度k的子序列)
子序列[x_,i_,k_]:=向左旋转[x,i-1][[1;;k]];
(*BinaryPattern[n,len]给出长度len的第n个二进制模式。*)
(*示例:第一个二进制模式对应于数字
用len位表示0*)
(*注:0<=n<=2^len和len>=Log[2,n]>=1*)
二进制模式[n_,len_]:=整数位数[n-1,2,len];
(*VarOfSeq[x]给出了直方图的方差,该直方图累计了被视为循环序列的序列中所有可能的子序列的出现次数*)
VarOfSeq[x_]:=模块[{slen,myhcomplete,myhreducted},
slen=长度[x];
我的完成=
表[表[{i,j,二进制模式[j,i],0},{j,1,2^i}],{i,1,
slen}];
做[做[做[
如果[myhcomplete[[k]][[m]][[3]]==SubSeq[x,i,k],
我的完整[[k]][[m][[4]]++]
,{i,1,slen}],{m,1,2^k}],}k,1,snen}];
迈赫的=
表[表[myhcomplete[[i]][[j+1]][[4]],{j,0,2^i-1}],{i,
1、长度[myhcomplete]}];
(变平时的方差@myhrered)//返回];
nmax=21;(*执行时间随字数呈指数增长!*)
a={1};
(*打印功能允许监控算法的执行进度*)
做[
如果[VarOfSeq[Append[a,1]]<VarOf Seq[Append[a、0]],AppendTo[a,1',
如果[VarOfSeq[Append[a,1]]>VarOf Seq[Addend[a、0]],AppendTo[a,0],
附加到[a,Mod[1+a[[-1]],2]]];
打印[a,“”,VarOfSeq[a]//N],{j,1,nmax}]
交叉参考
囊性纤维变性。A280711型.
关键词
非n,基础,坚硬的
作者
安德烈斯·西卡廷2017年1月14日
扩展
更多术语来自拉尔斯·布隆伯格,2017年1月25日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月20日11:48。包含373527个序列。(在oeis4上运行。)