SQ[n_]:=整数Q[Sqrt[n]]
q[n_]:=SQ[PrimePi[n]]
Do[Do[If[q[n-Prime[k]],Print[n,“”,Prime[k]];转到[aa]],{k,1,PrimePi[n-1]}];
打印[n,“”,0];标签[aa];继续,{n,1100}]
lp[n_]:=模块[{p=2},而[!IntegerQ[Sqrt[PrimePi[n-p]]],p=NextPrime[p]];p] ;联接[{0,0},数组[lp,80,3]](*哈维·P·戴尔2024年1月28日*)
|