SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密6生素数.DBF ALIAS 密6中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 5
   PUBLIC B
   B=素数
   cj1=B-A &&求前后两个素数的差值
     IF cj1=16
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE lss WITH A+8 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作最密6生素数简

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密7生素数.DBF ALIAS 密7中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 2
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=8
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE qss WITH A+10 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作最密7生素数中项

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密7生素数逆.DBF ALIAS 密7中逆
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 2
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=8 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nqss WITH A+10 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密7生素数中项（0,2,8,12,14,18,20）

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数.DBF ALIAS 密8中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 3
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=14
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE bss WITH A+13 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密8生素数（0,2,6,8,12,18,20,26）

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数逆.DBF ALIAS 密8中逆
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 3
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=14 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nbss WITH A+13 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数中.DBF ALIAS 密8中中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 3
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=14 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE zbss WITH A+13 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密8生素数中项（0,2,6,12,14,20,24,26）

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密9生素数.DBF ALIAS 密9中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=18
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE jss WITH A+15 &&将A+4付给变量szx
     ENDIF
     SELECT 1
     GO jl+1
     ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密9生素数中项0,2,6,8,12,18,20,26,30

  SELECT 1
   USE  d:\最密三生素数文件\对称8素13.DBF ALIAS 对称8素13
   SELECT 2
    USE  d:\最密三生素数文件\对称8素末.DBF ALIAS 对称8素11
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 13
    @ 3,6 say N
       SELECT 2
       go 1
       for m=1 to 8
           && @ 4,8 say 孪素
           X=dc8s+2310*(N-1)
           MZ=X%13
                IF  MZ=0 OR MZ=1 OR MZ=2 OR MZ=6 OR MZ=7 OR MZ=11 OR MZ=12
                  else
                  SELECT   1      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s13 WITH X     &&将N值付给素
                ENDIF
                SELECT 2
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从11升级到13）

SELECT 1
   USE  d:\最密三生素数文件\对称8素13.DBF ALIAS 对称8素13
   SELECT 2
   USE  d:\最密三生素数文件\对称8素17.DBF ALIAS 对称8素17
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 17
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 48
           && @ 4,8 say 孪素
           X=dc8s13+30030*(N-1)
           MZ=X%17
                IF  MZ=0 OR MZ=2 OR MZ=3 OR MZ=6 OR MZ=7 OR MZ=9 OR MZ=12 OR MZ=14
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s17 WITH X     &&将N值付给素
                ENDIF
                SELECT 2
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从13升级到17）

SELECT 1
   USE  d:\最密三生素数文件\对称8素17.DBF ALIAS 对称8素17
   SELECT 2
   USE  d:\最密三生素数文件\对称8素19.DBF ALIAS 对称8素19
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 19
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 432
           && @ 4,8 say 孪素
           X=dc8s17+510510*(N-1)
           MZ=X%19
                IF  MZ=0 OR MZ=1 OR MZ=2 OR MZ=5 OR MZ=6 OR MZ=7 OR MZ=12 OR MZ=14
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s19 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从17升级到19）