%I#37 2022年5月22日16:42:44

%S 2,5,7,13,17,19,29,43,47,53,67,73,89,97113127137139167173，

%电话：1931971992232292692772833073373493533793839397409，

%电话：43946346748750350952354755756359607617643647659739743773

%N素数p，使得2*p+3也是素数。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%F A067076交叉口A000040.-_R.J.Mathar，2017年3月23日

%p A023204:=proc（n），如果isprime（n）和isprim（2*n+3）=true，那么n end，如果end proc；序列号（A023204（n），n=1..1000）；#_韦斯利·伊万·赫特，2014年6月28日

%t f[n_]：=素数Q[2*n+3]；lst＝｛｝；Do[p=素数[n]；如果[f[p]，AppendTo[lst，p]]，{n，6！}]；第1期（*_Vladimir Joseph Stephan Orlovsky，2009年10月3日*）

%t选择[素数[范围[200]]，素数Q[2#+3]&]（*哈维·P·戴尔，2012年5月3日*）

%o（岩浆）[PrimesUpTo（1000）|IsPrime（2*p+3）中的p:p]；//_文森佐·利班迪（Vincenzo Librandi），2010年11月20日

%o（PARI）is（n）=isprime（2*n+3）&&isprime

%Y参考A089530、A089531和A089532。

%K nonn，简单

%O 1,1号机组

%A·热心的W·威尔逊_