登录

OEIS由OEIS基金会的许多慷慨捐助者.

 

提示 （来自的问候整数序列在线百科全书!) 20223年1月 a（n）是使n+k和n*k+1为素数的最小数k>1。 6 2, 3, 2, 3, 2, 5, 4, 5, 2, 3, 2, 5, 4, 3, 2, 7, 6, 11, 10, 3, 2, 9, 6, 13, 4, 3, 4, 15, 2, 7, 10, 11, 10, 3, 2, 5, 4, 5, 2, 7, 2, 5, 4, 9, 14, 13, 6, 5, 4, 3, 2, 21, 14, 5, 6, 5, 4, 9, 12, 7, 6, 5, 10, 3, 2, 5, 4, 15, 2, 3, 8, 25, 6, 27, 8, 3, 6, 11, 4, 3, 2, 15, 6, 5, 12, 11, 20, 15, 12, 7, 6, 5, 4, 3 (列表；图表；参考；听；历史；文本；内部格式) 抵消 1,1 评论 如果n+1是素数，则a（n）>A085063号（n） ；如果n+1不是素数，则a（n）=A085063号（n） ●●●●。 链接 罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表 例子 a（3）=2，因为3+2=5和3*2+1=7是质数； a（8）=5，因为8+5=13和8*5+1=41是质数。 MAPLE公司 f： =程序（n）局部k； 对于来自`if`（n:：奇数，2,3）do的k 如果isprime（n*k+1）和isprime（n+k），则返回k fi 日 结束进程： 地图（f，[1..100]美元）#罗伯特·伊斯雷尔2019年2月3日 数学 收获[Do[Do[If[PrimeQ[{n+x，n*x+1}]=={True，True}，Sow[x]；中断[]]，{x，2100}]，{n，120}]][[2，1]] mnk[n_]：=模[{k=2}，While[！AllTrue[{n+k，n*k+1}，素数Q]，k++]；k] ；数组[mnk，100]（*程序使用Mathematica版本10中的AllTrue函数*）(*哈维·P·戴尔2014年10月15日*） 黄体脂酮素 （PARI）对于（n=1100，k=2；而（！isprime（n+k），k++；while（！i素数（n*k+1），k++））；打印1（k，“，”）\\王金源2019年2月4日 交叉参考 囊性纤维变性。A085063号,A092945号,A085063号,A120224号,A120225号. 上下文中的序列：A204895型 A064652号 A077600型*A282691型 A346744飞机 A265577型 相邻序列：A120220年 A120221号 A120222号*A120224号 A120225号 A120226号 关键词 非n 作者 扎克·塞多夫2006年6月10日 状态 经核准的

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

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

上次修改时间：2024年4月19日16:52 EDT。包含371794个序列。（在oeis4上运行。）