%我#11 2022年9月8日08:45:39

%S 5,7,11,17,29,41,43,59,71,832232831311347389433479601619881，

%电话：9079679839911039109315114711571156717231873187719071931，

%电话：193319872309253129533037346135393853400140034007407340914253

%N素数p，这样p^2+-18也是素数。

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

%t fQ[n_]：=素数Q[n^2-18]和素数Q[n^2+18]；lst={}；Do[如果[fQ@Prime（基本）[n] ，附加到[lst，质数[n]]]，{n，7！}]；第一次

%t选择[Prime[Range[700]]，和@@PrimeQ/@{#^2+18，#^2-18}&]（*哈维·P·戴尔，2011年3月12日*）

%o（岩浆）[p:p在PrimesUpTo（4500）|IsPrime（p^2-18）和IsPrime中（p^2+18）]；//_文森佐·利班迪（Vincenzo Librandi），2013年4月9日

%Y参考A153116。

%K nonn，简单

%O 1,1号机组

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