|
| |
|
| A007510美元 |
| 单（或孤立或非双）素数：素数p，即p-2和p+2都不是素数。
（原M2130）
|
|
98
|
|
|
|
2, 23, 37, 47, 53, 67, 79, 83, 89, 97, 113, 127, 131, 157, 163, 167, 173, 211, 223, 233, 251, 257, 263, 277, 293, 307, 317, 331, 337, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 439, 443, 449, 457, 467, 479, 487, 491, 499, 503, 509, 541, 547, 557, 563
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
根据Brun定理，几乎所有素数都是这个序列的成员。
|
|
|
参考文献
|
理查德·弗朗西斯（Richard L.Francis），“孤立素数”，《数学评论》。，11 (1978), 17-22.
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
欧内斯特·希布斯，素数的分量相互作用，《国会科技大学博士论文》（2022年），见第33页。
|
|
|
配方奶粉
|
|
|
|
例子
|
|
|
|
MAPLE公司
|
with（numtheory）：for i from 1 to 150 do p:=ithprime（i）：if（not isprime（p+2）and not isprime（p-2））然后打印f（“%d，”，p）fiod:#Pab Ter
isA007510:=proc（n）isprime（n）and not isprime；简化（%）；结束进程：
A007510美元：=程序（n），如果n=1，则为2；对于from procname（n-1）+1 do，如果isA007510（a），则返回a；结束条件：；结束do；结束条件：；结束进程：#R.J.马塔尔2010年4月26日
|
|
|
数学
|
转置[Select[Partition[Prime[Range[100]]，3，1]，#[2]]-#[1]]！=2 && #[[3]] - #[[2]] != 2 &]][[2]] (*哈维·P·戴尔2001年3月1日*）
选择[Prime[Range[4100]]！PrimeQ[#-2]&&！PrimeQ[#+2][](*扎克·塞多夫2007年5月7日*）
选择[Prime[Range[150]]，NoneTrue[#+{2，-2}，PrimeQ]&](*哈维·P·戴尔2022年12月26日*）
|
|
|
黄体脂酮素
|
（UBASIC）10’素数使用计数器20 N=3：打印“2”；：打印“3”；：C=2 30 A=3:S=sqrt（N）40 B=N\A 50，如果B*A=N，则55 55 Q=N+2:R=N-2：如果Q<>prmdiv（Q）且N=prmdiv；N；R；"-"; :停止：否则N=N+2：转到30 60 A=A+2 70，如果A<=sqrt（N），则40：停止81 C=C+1 100 N=N=2：转到30'伊诺克·哈加，2007年10月8日
（PARI）for素数（x=21000，如果（！isprime（x-2）&&！i素数（x+2），打印（x））\\扎克·塞多夫2009年3月23日
（PARI）列表（lim）=my（v=列表（[2]），p=3，q=5）；对于素数（r=7，lim，如果（q-p>2&r-q>2，listput（v，q））；p=q；q=r）；p=预备役（lim）；如果（p<=lim&&p-precprime（p-2）>2&&nextprime（p+2）-p>2，listput（v，p））；维奇（v）\\查尔斯·格里特豪斯四世2017年8月21日
（Magma）[p:p in PrimesUpTo（1000）| not IsPrime（p-2）and not IsPrime（p+2）]//文森佐·利班迪2014年6月20日
（哈斯克尔）
导入数据。列表（元素索引）
a007510 n=a007510_列表！！（n-1）
a007510_list=映射（+1）$elemIndices（0，1，0）$
zip3（放置2 a010051_list）a010052_list（0:0:a010051_list）
（Python）
从sympy导入nextprime
定义缺陷（极限）：
n、 p，q=1，2，3
alst，non-twins，双胞胎=[]，[2]，[3]
而True为真：
p、 q=q，下一素数（q）
如果q-p==2：
如果p！=双胞胎[-1]：双胞胎。追加（p）
双胞胎追加（q）
其他：
如果p！=twins[-1]：non_twins.append（p）
如果q>limit：返回nontwins
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的,美好的
|
|
|
作者
|
|
|
|
扩展
|
更多条款来自Pab Ter（pabrlos2（AT）yahoo.com），2005年11月11日
|
|
|
状态
|
经核准的
|
| |
|
|
