A085063-出口

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

A085063号

a（n）是使n+k和n*k+1为素数的最小数k。

7

1, 1, 2, 1, 2, 1, 4, 5, 2, 1, 2, 1, 4, 3, 2, 1, 6, 1, 10, 3, 2, 1, 6, 13, 4, 3, 4, 1, 2, 1, 10, 11, 10, 3, 2, 1, 4, 5, 2, 1, 2, 1, 4, 9, 14, 1, 6, 5, 4, 3, 2, 1, 14, 5, 6, 5, 4, 1, 12, 1, 6, 5, 10, 3, 2, 1, 4, 15, 2, 1, 8, 1, 6, 27, 8, 3, 6, 1, 4, 3, 2, 1, 6, 5, 12, 11, 20, 1, 12, 7, 6, 5, 4, 3, 2, 1, 4, 5

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,3

评论

如果n+1是素数，则a（n）=1；如果n+1不是素数，则a（n）=A120223号（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；

从1+（n mod 2）到2do的k

如果是isprime（n+k）和isprim（n*k+1），则返回kfi

日

结束进程：

f（1）：=1：#罗伯特·伊斯雷尔2018年5月14日

数学

收获[Do[Do[If[PrimeQ[{n+x，n*x+1}]=={True，True}，Sow[x]；中断[]]，{x，1100}]，{n，120}]][[2，1]]

nkp[n_]：=模[{k=1}，While[！And@@PrimeQ[{n+k，n*k+1}]，k++]；k]；数组[nkp，100](*哈维·P·戴尔2012年4月11日*）

黄体脂酮素

（PARI）a（n）={my（k=1）；while（！isprime（n+k）||！isprim（n*k+1），k++）；k；}\\米歇尔·马库斯2018年5月14日

交叉参考

囊性纤维变性。A092945号,A120223号,A120224号,A120225号.

上下文中的顺序：A166235型 A143591号 A380282*A263078型 A329869型 A331188型

相邻序列：A085060型 A085061号 A085062号*A085064号 A085065型 A085066号

关键词

非n

作者

阿玛纳斯·穆尔西2003年6月28日

扩展

更正和扩展人扎克·塞多夫2006年6月10日

状态

经核准的