[原创]请教vfbpgyfk先生一个编程问题

白新岭

截止2022年05月15日周日20:39分浏览量51432，回复1449，热度81度
截止2022年05月16日周一21:44分浏览量51588，回复1463，热度82度
晚安！

vfbpgyfk

在网友的提示下，经实践检验和综合分析，将哈-李双记法公式中的固定系数1.3203（单记法计算时，固定系数为0.66015），调整为1.545（单记法计算时，固定系数为0.7725），以此取代本人的类偶数计算公式。也就是说，kN/ln(N)^2≈0.7725*N/ln(N)^2*∏(p-1)/(P-2)【连乘约束条件是：P∣N，P>2】，再明确点说，就是k≈0.7725*∏(p-1)/(P-2)。
**********************************
正在计算2022011800~2022052000区间连续偶数的真实素数对个数和∏(p-1)/(P-2)值，待完成后，就将比对结果整理发上来。

重生888@

吻合度很不错！

白新岭

截止2022年05月16日周一21:44分浏览量51588，回复1463，热度82度
截止2022年05月19日周四19:58分浏览量51971，回复1467，热度82度

白新岭

截止2022年05月19日周四19:58分浏览量51971，回复1467，热度82度
截止2022年05月21日周六22:25分浏览量52267，回复1468，热度82度
晚安！

白新岭

截止2022年05月21日周六22:25分浏览量52267，回复1468，热度82度
截止2022年05月22日周日19:49分浏览量52384，回复1469，热度82度

白新岭

截止2022年05月22日周日19:49分浏览量52384，回复1469，热度82度
截止2022年05月23日周一20:59分浏览量52496，回复1470，热度82度

白新岭

截止2022年05月23日周一21:03分浏览量52498，回复1471，热度83度

白新岭

SELECT 1
USE  D:\方程p减2的n次方\素数表万.DBF ALIAS 素数表万
SELECT 2
USE D:\方程p减2的n次方\一加m表.DBF ALIAS 一加m表
kssj=SECONDS()                      &&取出开始时间
FOR i=70 TO 100 STEP 2
@12,10 SAY i
IF MOD(i,3)=0
s=3
ELSE
s=1
ENDIF
IF MOD(i,5)=0
w=5
ELSE
w=1
ENDIF
IF MOD(i,7)=0
q=7
ELSE
q=1
ENDIF
IF MOD(i,11)=0
yy=11
ELSE
yy=1
ENDIF
IF MOD(i,13)=0
ys=13
ELSE
ys=1
ENDIF
IF MOD(i,17)=0
yq=17
ELSE
yq=1
ENDIF
IF MOD(i,19)=0
yj=19
ELSE
yj=1
ENDIF
IF MOD(i,23)=0
es=23
ELSE
es=1
ENDIF
IF MOD(i,29)=0
ej=29
ELSE
ej=1
ENDIF
IF MOD(i,31)=0
sy=31
ELSE
sy=1
ENDIF
IF MOD(i,37)=0
sq=37
ELSE
sq=1
ENDIF
IF MOD(i,41)=0
ssy=41
ELSE
ssy=1
ENDIF
IF MOD(i,43)=0
sss=43  && ss下边素数用着，出现了错误
ELSE
sss=1
ENDIF
IF MOD(i,47)=0
ssq=47
ELSE
ssq=1
ENDIF
FOR j=9 TO 13999 STEP 2
@22,20 SAY j
   IF MOD(j,i)=0
   LOOP
   ENDIF
  IF MOD(j,s)=0 AND s>1
  LOOP
ENDIF
IF MOD(j,w)=0 AND w>1
  LOOP
ENDIF
  IF MOD(j,q)=0 AND q>1
  LOOP
ENDIF
  IF MOD(j,yy)=0 AND yy>1
  LOOP
ENDIF
IF MOD(j,ys)=0 AND ys>1
  LOOP
ENDIF
  IF MOD(j,yq)=0 AND yq>1
  LOOP
ENDIF
  IF MOD(j,yj)=0 AND yj>1
  LOOP
ENDIF
IF MOD(j,es)=0 AND es>1
  LOOP
ENDIF
IF MOD(j,ej)=0 AND ej>1
  LOOP
ENDIF
IF MOD(j,sy)=0 AND sy>1
  LOOP
ENDIF
IF MOD(j,sq)=0 AND sq>1
  LOOP
ENDIF
IF MOD(j,ssy)=0 AND ssy>1
  LOOP
ENDIF
IF MOD(j,sss)=0 AND sss>1 && ss下边素数用着，出现了错误
  LOOP
ENDIF
  IF MOD(j,ssq)=0 AND ssq>1
  LOOP
ENDIF
SELECT 1
GO 1
  COUNT ALL FOR 素数<=j/i TO tj
  SELECT 1
  GO 1
        FOR k=1 TO tj
        SELECT 1
        ss=素数
        jl=recno()
        pdz=j-i*ss
           SELECT 1
           GO 1
           COUNT NEXT i*tj+10 FOR 素数=pdz TO tj1  
           IF tj1=1
           EXIT
           ENDIF
         SELECT 1
        GO jl+1
        ENDFOR
   IF k>tj
   SELECT 2  
   APPEND BLANK            
   REPLACE m值 WITH i
   REPLACE n值 WITH j
   ENDIF
  ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是查找“1+m”中的反例程序，1表示素数，m表示m倍的素数，它们的和为正整数。

独舟星海

截止2022年05月23日周一21:03分浏览量52498，回复1471，热度83度
截止2022年05月24日周二22:07分浏览量52660，回复1473，热度83度