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亿后，运行，找到一个反例，比找到一块金子都难。

SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\偶数表.DBF ALIAS 偶数表
kssj=SECONDS()
 SELECT  1
 GO 1101
 For i=1 to 200
      @ 5,12 say i
    SELECT  1     
    jl=recno()
    PUBLIC A
    A=四中
          SELECT  1
          GO 1100+i
          For j=1 to 101850-i
          @ 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,"运行时间提示")
我计划制作偶数表的方式来找那些不能合成的偶数。

这个问题就是一道数学题:x+y=30N,x,y取四生素数表中的数值，那些数据，由小到大排列，它们在210这个周期内，只能合成0，30，90,120,180这五类偶数，另外的60,150是不能被合成的（所以不考虑这两类数），也就已30递增，7个值，只有5个值可以被合成，另外2个值不能被合成；就是在能被合成的五类数中，在小范围内，存在有限个反例，最大反例出现范围，不超过43.5亿。找43.5亿以前的反例（五类数中的）。
    那个四生素数表提供了100亿内的四生素数，用末素代替的，只需要统一减去4，就得到了四生素数中项值。

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=四中
    B=INT(A/210)
    C=MOD(A,210)
         SELECT 2
         APPEND BLANK     
         REPLACE 整数 WITH B
         REPLACE 余数 WITH C
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作四生素数中项的分身

这是上边程序制作的文件。