SELECT 1
USE D:\三角递增法\四生素数表.DBF ALIAS 四素表
SELECT 2
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 102949
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=四素
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 四中 WITH A-4      &&将N值付给素数式
   SELECT 1
   skip
   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:\三角递增法\偶数表.DBF ALIAS 偶数表
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 2949
      @ 5,12 say i
    SELECT  1     
    jl=recno()
    PUBLIC A
    A=四中
          SELECT  1
          GO 1
          For j=1 to 102949
          @ 15,22 say j
          PUBLIC B
          B=四中
          C=A+B
           SELECT 2
           COUNT all  FOR C=偶数 TO tj
              IF tj=0
              SELECT 2
              APPEND BLANK   
              REPLACE 偶数 WITH C
              ENDIF   
           SELECT 1
           SKIP
           ENDFOR
   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:\三角递增法\偶数表.DBF ALIAS 偶数表
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 100
      @ 5,12 say i
    SELECT  1     
    jl=recno()
    PUBLIC A
    A=四中
          SELECT  1
          GO 1
          For j=1 to 102949
          @ 15,22 say j
          PUBLIC B
          B=四中
          C=A+B
              SELECT 2
              APPEND BLANK   
              REPLACE 偶数 WITH C   
           SELECT 1
           SKIP
           ENDFOR
   SELECT 1
   GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是直接制作偶数表。不过得1000来个表，最低也得500个表，然后对每个表去重复的，留下唯一值，那么制作出来的偶数表，如何去重，及排序，挑出唯一值呢？

sort to 偶数表升序 on 偶数
对制作出来的偶数表排序，

SELECT 1
USE D:\三角递增法\偶数表升序.DBF ALIAS 偶数表升序
SELECT 2
USE D:\三角递增法\偶数升序表.DBF ALIAS 偶升表
kssj=SECONDS()
 SELECT  1
 GO 1
 oushu=偶数
 SELECT 2
         APPEND BLANK     
         REPLACE 偶升 WITH   oushu
 For i=1 to 10294899
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=偶数
    SKIP
    PUBLIC B
    B=偶数
         IF B-A>0
         SELECT 2
         APPEND BLANK     
         REPLACE 偶升 WITH B
         endif   
   SELECT 1
   GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
整理偶数表，去掉重复数据。

Select A.* Into Table d:\三角递增法\偶数表升序1 From 偶数表 A Inner Join (Select 偶数 From 偶数表 Group By 偶数 Having Count(*)=1) B On A.偶数=B.偶数
这个语句可以把，制作出来的偶数表，重新整理，去重了，不知道是否排列序。

在不指明路径的情况下，新建表是存到VFp的根目录上的。

那个语句同时进行了排序。

四生素数中项差值只有模210余0，30，90，120，180这5种间距，没有模210余60和150的2种间距。对于中项和也是如此。

从148#截止，以后应该没有不能合成的偶数了（有合成方法的偶数），因为在42.21亿到43.302亿之间1.092亿的跨度内没有在出现不能合成的偶数。
前半句可以忽略掉，从因为往后是我发在这里的原因，1个多亿的跨度内没有找到反例，这说明，反例总有断截的地方。
感兴趣的，可以从42.21亿后，运行，找到一个反例，比找到一块金子都难。