在10^18以内找到四生素数三连体以上的连体包括三连体

白新岭

SELECT 1
USE D:\素数式系数\四生成元至29.DBF ALIAS 四成元29
SELECT 2
USE D:\素数式系数\四生三连体.DBF ALIAS 四三连
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 17506120
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=四中29
    SKIP 1
    PUBLIC B
    B=四中29
    SKIP 1
    PUBLIC C
    C=四中29
    cj1=B-A  &&求前后两个素数的差值
    cj2=C-A  &&求前后两个素数的差值
    IF cj1=90 AND cj2=120
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 四三末 WITH A+120          &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
在至素数29时，搜寻四生素数三连体生成元程序，共计有3120*18=56160个。因为在12个素数式中有一对同余，（mod（6,29）=mod（122,29））.
在素数29阶乘内（6469693230内），有56160组12生素数式（四生素数三连体）可以产生四生素数三连体