%I#44 2022年9月8日08:45:39

%S 5,11,13,19,23,29,41,43,53,61,71,79,83,89109113139163173，

%电话：179181193211223233239251263293313331349379383401421，

%电话：431439443449461491503523569599601613641643659673683

%N素数p，使得p+18也是素数。

%C p和p+18都有相同的数字根（A010888）_Zak Seidov_，2015年9月14日

%C术语不属于A030432。-_米歇尔·马库斯，2015年9月14日

%C没有术语属于A045437。-_Bruno Berselli，2015年9月14日

%H Vincenzo Librandi，n的表，n=1..1000的a（n）</a>

%e5是按顺序排列的，因为5+18=23也是素数；

%e 11是按顺序排列的，因为11+18=29也是素数。

%t lst={}；d=18；Do[p=素数[n]；如果[PrimeQ[p+d]，AppendTo[lst，p]]，{n，6！}]；第一次

%t选择[Prime[范围[150]]，PrimeQ[（#+18）]&]（*Vincenzo Librandi_，2013年4月14日*）

%o（岩浆）[PrimesUpTo（1000）|IsPrime（p+18）中的p:p]；//_文森佐·利班迪（Vincenzo Librandi），2013年4月14日

%o（PARI）list（n）=用于素数（p=1，n，if（isprime（p+18），print1（p“，”））\\_Anders-Hellström_，2015年9月13日

%o（Sage）[p表示素数（700）中的p，如果is_prime（p+18）]；#_Bruno Berselli，2015年9月14日

%Y参见A007953、A010888、A045437、A049488、A030432、A153417。

%Y A031936是一个子序列_扎克·塞多夫，2015年9月13日

%K nonn，简单

%O 1,1号机组

%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基（Joseph Stephan Orlovsky），2008年12月25日

%2012年10月31日，Bruno Berselli改进了E定义