%I#5 2016年7月3日00:17:34
%第2,7,11,13,23,29,31,47,53,59,61,79,83,97127131137139167173页,
%电话1791911932232272339251293307311313317359383389397,
%电话:439443461467479547557563569571647653659673727743761773
%N素数的素数差从最近的平方中减去
%C A146315+A146316中的术语产生正方形
%A000040中的F{p:A068527(p)在A000040}中R.J.Mathar,2011年9月26日
%e a(6)=29,因为当素数29从平方36中减去时,结果是另一个素数7
%o(UBASIC)10’sq less pr are prime 20 N=1:o=1:C=1 30 A=3:S=sqrt(N)40 B=N\A 50 if B*A=N,然后120 60 A=A+2 70 if A<=S,然后40 80 R=o^2:Q=R-N 90 if N<R and N=prmdiv(N)and Q=prmdov(Q),然后打印R;N;Q: N=N+2:C=C+1:如果C>31,则转到30 100,然后停止120 N=N+2:如果N<R,则30:否则O=O+1:转到80
%Y参考A146316-A146318。
%K容易,不是
%O 1,1号机组
%2008年10月30日,A_Enoch Haga
|