%I#11 2021年7月8日11:46:25

%第396711027116571410716033167871801318617186371883919661页，

%电话：2124723719242812457129101303673135732749332473367933997，

%电话：3520136037377473385014006340387425334261143691439134441746957

%N两个相邻素数的间距均大于18的素数。

%H Harvey P.Dale，n的表，n=1..1000的a（n）</a>

%H<a href=“/index/Pri#gaps”>质数的索引条目</a>

%F{A000040（i）：A001223（i）>18和A001222（i-1）>18}R.J.Mathar，2009年7月27日

%t lst={}；Do[p=素数[n]；如果[！PrimeQ[p-2]&&！PrimeQ[p+2]&&！PrimeQ[p-4]&&！PrimeQ[p+4]&&！PrimeQ[p-6]&&！PrimeQ[p+6]&&！PrimeQ[p-8]&&！PrimeQ[p+8]&&！PrimeQ[p-10]&&！PrimeQ[p+10]&&！PrimeQ[p-12]&&！PrimeQ[p+12]和&！PrimeQ[p-14]&&！PrimeQ[p+14]&&！PrimeQ[p-16]和&！PrimeQ[p+16]&&！PrimeQ[p-18]&&！素数Q[p+18]，附加到[lst，p]]，{n，8！}]；第一次

%t选择[Partition[Prime[Range[5000]]，3,1]，Min[Differences[#]]>18&][[All，2]（*_哈维·P·戴尔，2021年7月8日*）

%Y参考A137875、A137874、A1371873、A137892、A13787

%K nonn公司

%O 1,1号机组

%2009年7月20日，A _Vladimir Joseph Stephan Orlovsky

%E定义由R.J.Mathar重新表述，2009年7月27日