搜索： a117923-编号：a117923
|
| |
| |
|
|
|
1, 2, 3, 4, 6, 8, 9, 10, 14, 18, 19, 21, 23, 24, 28, 33, 35, 42, 50, 56, 57, 62, 68, 81, 82, 111, 116, 120, 137, 143, 149, 156, 159, 166, 168, 169, 173, 186, 200, 201, 204, 206, 212, 218, 226, 234, 237, 253, 263, 266, 269, 273, 274, 277, 282, 284, 285, 286, 288
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
黄体脂酮素
|
（PARI）a（n）=v=[1]；k=1；while（#v<=n，if（i素数（k+v[#v]）&&！vecsearch（vecsort（v），k），v=concat（v，k）；k=0）；k++）；v[#v-1]
n=1；而（n<1000，如果（a（n）==n，打印1（n，“，”））；n++）\\德里克·奥尔2015年6月8日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A055265号
|
| a（n）是序列中尚未存在的最小正整数，使得a（n）+a（n-1）是素数，从a（1）=1开始。 |
|
+10
40
|
|
|
|
1, 2, 3, 4, 7, 6, 5, 8, 9, 10, 13, 16, 15, 14, 17, 12, 11, 18, 19, 22, 21, 20, 23, 24, 29, 30, 31, 28, 25, 34, 27, 26, 33, 38, 35, 32, 39, 40, 43, 36, 37, 42, 41, 48, 49, 52, 45, 44, 53, 50, 47, 54, 55, 46, 51, 56, 57, 70, 61, 66, 65, 62, 69, 58, 73, 64, 63, 68, 59, 72, 67, 60
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
序列定义良好（这些项必须在奇偶性中交替出现，并且根据狄利克雷定理a（n+1）总是存在的）-N.J.A.斯隆2017年3月7日
|
|
|
链接
|
M.F.Hasler，相邻项的质数和，OEIS Wiki，2019年11月23日
|
|
|
配方奶粉
|
|
|
|
例子
|
a（5）=7，因为已经使用了1、2、3和4，4+5=9和4+6=10都不是质数，而4+7=11是质数。
|
|
|
MAPLE公司
|
当地a，i，已知；
选项记忆；
如果n=1，则
1;
其他的
从1开始
已知：=假；
对于i从1到n-1 do
如果procname（i）=a，则
已知：=真；
断裂；
结束条件：；
结束do：
如果未知且为isprime（procname（n-1）+a），则
返回a；
结束条件：；
结束do：
结束条件：；
结束进程：
|
|
|
数学
|
f[s_List]：=块[{k=1，a=s[[-1]]}，而[MemberQ[s，k]||！素数Q[a+k]，k++]；追加[s，k]]；嵌套[f，｛1｝，71](*Robert G.Wilson诉2009年5月27日*）
q=2000；a={1}；z=范围[2,2*q]；当[Length[z]>q-1时，k=1；While[！PrimeQ[z[[k]]+Last[a]]，k++]；附加到[a，z[[k]]]；z=删除[z，k]]；打印[a]（*速度快200倍*）(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2011年5月3日*）
|
|
|
黄体脂酮素
|
（HP 50G计算器）<<DUPDUP+2->N M L<<{1}1 N 1-对于i L M，对于j DUP j POS，如果j DUP'L'STO M'j'STO END NEXT OVER i在DUP2+DUP ISPRIME时得到掉落？不要重复掉落，在末端旋转掉落之前，不要重复1+3拾取位置>>>杰拉尔德·希利尔2008年10月28日
（哈斯克尔）
导入数据。列表（删除）
a055265 n=a055265_列表！！（n-1）
a055265_list=1:f 1[2..]其中
f x vs=g vs其中
g（w:ws）=如果a010051（x+w）==1
然后w:fw（删除wvs）其他gws
（PARI）v=[1]；n=1；while（n<50，if（i素数（v[v]+n）&&！vecsearch（vecsort（v），n），v=concat（v，n）；n=0）；n++）；v（v）\\德里克·奥尔2015年6月1日
（PARI）U=-a=1；向量（100，k，k=估值（1+U+=1<<a，2）；while（bittest（U，k）||！i素数（a+k），k++）；a=k）\\M.F.哈斯勒2020年2月11日
|
|
|
交叉参考
|
|
|
|
关键词
|
容易的,美好的,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 12, 17, 14, 11, 16, 13, 18, 19, 20, 21, 22, 23, 24, 25, 36, 27, 28, 29, 32, 31, 40, 33, 26, 35, 38, 43, 30, 41, 34, 39, 42, 37, 44, 51, 52, 55, 48, 47, 50, 53, 54, 45, 46, 49, 56, 57, 66, 63, 70, 69, 62, 71, 60, 59, 72, 73, 68, 67, 64, 65, 58
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
