显示1-1个结果(共1个)。
第页1
3967, 11027, 11657, 14107, 16033, 16787, 18013, 18617, 18637, 18839, 19661, 21247, 23719, 24281, 24571, 29101, 30367, 31357, 32749, 33247, 33679, 33997, 35201, 36037, 37747, 38501, 40063, 40387, 42533, 42611, 43691, 43913, 44417, 46957
数学
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!}];第一次
选择[Partition[Prime[Range[5000]],3,1],Min[Differences[#]]>18&][[All,2](*哈维·P·戴尔2021年7月8日*)
搜索在0.005秒内完成
|