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

白新岭

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生素数的后续系数

白新岭

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,"运行时间提示")
求最密8生素数的系数（后续，即正规化以后得连乘积式值）
0.5448521899040620
前部系数值：327.1748885
最终结果：178.2619544938600000
上边即为最密8生素数（0,2,6,8,12,18,20,26）的系数，渐近公式中的系数