编辑

经核准的

Harvey P.Dale，<a href=“/A152295号/b152295.txt“>n表，n=1..3000时为a（n）</a>

选择[Prime[Range[1000]]，AllTrue[{（#-5）/6，6#+5}，PrimeQ]&]（*此程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2014年7月29日*）

经核准的

编辑

_弗拉基米尔 约瑟夫 斯蒂芬尔洛夫斯基(4vladimir公司(自动变速箱)gmail公司.通用域名格式),_,2008年12月2日

OEIS服务器: https://oeis.org/edit/global/876

形式的素数：（p-n）/（n+1）=素数和（n+1）*p+n=素数。n=5。

17, 71, 83, 107, 191, 227, 251, 263, 431, 443, 479, 503, 587, 827, 839, 911, 983, 1091, 1151, 1163, 1187, 1619, 1667, 1847, 1907, 2087, 2243, 2459, 2591, 3023, 3467, 4463, 4871, 4943, 5471, 5519, 5651, 5807, 5903, 6131, 6203, 6299, 6311, 6563, 6983, 7127

1,1

这是一般形式：（p-n）/（n+1）=素数和（n+1安全素数和苏菲-日尔曼素数只是这个一般形式的一部分；如果n=1，那么我们得到“安全”素数和“苏菲·杰曼”素数。

lst={}；n=5；Do[p=质数[k]；如果[PrimeQ[（p-n）/（n+1）]和&PrimeQ]（（n+1，*p+n]），附加到[lst，p]]，{k，7！}]；第一次

囊性纤维变性。A059455号,A152292号,A152293号,A152294号

非n

弗拉基米尔·奥尔洛夫斯基（4vladimir（AT）gmail.com），2008年12月2日

经核准的