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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A055266号 a(n)+a(n+1)决不是素数;在词典学上最早的这种不同的正整数序列。 21
1, 3, 5, 4, 2, 6, 8, 7, 9, 11, 10, 12, 13, 14, 16, 17, 15, 18, 20, 19, 21, 23, 22, 24, 25, 26, 28, 27, 29, 31, 32, 30, 33, 35, 34, 36, 38, 37, 39, 41, 40, 42, 43, 44, 46, 45, 47, 48, 50, 49, 51, 53, 52, 54, 56, 55, 57, 58, 59, 60, 61, 62, 63, 65, 64, 66, 67, 68, 70, 71, 69, 72 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
请参见A253074型对于本质上相同的序列(证明该序列是置换)。
顺序A253074型以相同的方式定义,但以0开头。这碰巧从下一个项开始产生相同的序列。这是序列家族中的情况(M,N)=(2,0),其中M个连续项在其两两和中产生N个素数,有关其他示例,请参阅wiki页面-M.F.哈斯勒2019年11月26日
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
M.F.Hasler,相邻项的质数和,OEIS维基,2019年11月23日
配方奶粉
a(n)=A253074型(n+1)(只要A253074型(1) = 0). -M.F.哈斯勒2019年11月26日
例子
a(3)=5,因为已经使用了1和3,3+2=5和3+4=7都是质数,而3+5=8不是质数。
MAPLE公司
N: =1000;#得到n到n的[n]
A: ={1};
a[1]:=1;
对于从2到n的n do
毫安:=最大值(A);
R: ={$1..mA}减去A;
对于R do中的x
如果不是isprime(a[n-1]+x),则
a[n]:=x;
打破
fi(菲涅耳)
日期:
如果未分配(a[n]),则
对于mA+1 do中的x
如果不是isprime(a[n-1]+x),则
a[n]:=x;
打破
fi(菲涅耳)
fi;
A: =联合{x};
日期:
seq(a[n],n=1..n)#罗伯特·伊斯雷尔2014年6月3日
数学
f[s_]:=块[{k=1,a=s[[-1]]},而[Or[MemberQ[s,k],素数Q[a+k]],k++];追加[s,k]];嵌套[f,{1},121](*扎克·塞多夫2009年10月21日*)
a={1};z=范围[2,2002];z=补码[z,a];While[Length[z]>1,If[!PrimeQ[z[[1]]+Last[a]],AppendTo[a,z[1]]],If[!PrimeQ[z[2]]+Last[a]]];z=补码[z,a]];打印[a](*速度明显加快*)(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2011年5月3日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(删除)
a055266 n=a055266_列表!!(n-1)
a055266_list=1:f 1[2..]其中
f u vs=g vs其中
g(w:ws)|a010051'(u+w)==0=w:f w(删除wvs)
|否则=g ws
--莱因哈德·祖姆凯勒,2015年1月14日
(PARI)v=[1];n=1;while(n<100,if(!i素数(n+v[#v])&&!vecsearch(vecsort(v),n),v=concat(v,n);n=0);n++);v(v)\\德里克·奥尔2015年6月8日
(PARI)A055266号_上限为(n=99,u=1,u,a)={向量(n,n,n=u;while(bittest(u,n-u)||isprime(a+n),n++);if(n>u,u+=1<<(n-u),u>>=-u+u+=估值(u+2,2));a=n)+if(默认(调试),打印([u])))}\\可选参数允许调整计算。如果调试>0,则在末尾打印最少未使用的数字-M.F.哈斯勒2019年11月25日
交叉参考
囊性纤维变性。A055265号,A010051型,A249920型(反向),A203069号,A253074型
关键词
容易的,非n
作者
亨利·博托姆利2000年5月9日
扩展
更正人扎克·塞多夫2009年10月21日
姓名编辑人M.F.哈斯勒2019年11月26日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年4月26日09:05。包含371991个序列。(在oeis4上运行。)