SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模30.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模180.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=2.250000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^2*(A-3)/(A-1)^3)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^2*(B-3)/(B-1)^3)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^3*(A-4)/(A-1)^4)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^3*(B-4)/(B-1)^4)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^4*(A-5)/(A-1)^5)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^4*(B-5)/(B-1)^5)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^5*(A-6)/(A-1)^6)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^5*(B-6)/(B-1)^6)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*(A^6*(A-7)/(A-1)^7)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^6*(B-7)/(B-1)^7)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
求最密7生素数的后续系数
0.3694375108626990
前期系数：146.0922261
最终结果（7生素数系数）53.9719483696988000

0,2,6,8,12,18,20,26
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^7*(A-8)/(A-1)^8)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^7*(B-8)/(B-1)^8)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^8*(A-9)/(A-1)^9)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^8*(B-9)/(B-1)^9)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
s=0.44325470144056700

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^9*(A-10)/(A-1)^10)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^9*(B-10)/(B-1)^10)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
s=0.345052546194588