这个限制是无法避免的。指溢出这个现象。就是用函数mod(n.m)也会溢出，计算错误。不过此问题，不会出现，因为，100亿内的四生素数表已经提供，预计在43.5亿后不在有反例，一个加法运算，在允许范围以内，不会出现溢出现象。那个程序我运行过，只是嫌它运行太慢，才有此举。

四生素数中项不能合成的偶数　不知道如何理解

不知此话怎讲？如果说，问题的合理性，那不需要考虑，因为我实际运行过（也证明了它的存在性及合理性）。就是说，那个表存在加法合成元素（即x+y=2N中，x和y的取值），合成结果也已给出：210m+38，210m+188，210m+218（或者用其中项，把表中所有值都减去4，即为中项，此时合成数为210m+30，210m+180，210m+210）.
    如果不是命题方面，而是程序上的事情，有就不知道说的是什么了。
必要性何解？充分性又何解？

（11,13,17,19）的中项为15,（101,103,107,109）的中项为105,15+105=120，（191,193,197,199）的中项为195；
15+195=210,15+15=30,105+105=210,195+195=390（1*210+180），105+195=300（1*210+90），以上各楼有误：
在210周期内有5类数可以合成：210m+30,210m+38,210m+90,210m+120,210m+180，210m+210这五类偶数，另外210m+60，210m+150这两类偶数不能被合成，也不考虑它们。只查找那5类偶数中无解的。
即x+y=2N,2N是所列的五类数中的偶数。x，y是四生素数的中项值。

如果对于命题而言，充分性与必然性并存，无懈可击。
如果谈程序优化，就不知道了。
吹水佬版主可以试运行，只不过，那个程序太菜，运行速度极慢，估计的一个月才能运行到43.5亿，如果想推翻它，需要在43.5亿后找到反例才可（即无解偶数）。

希望大家继续参与讨论，其实不需要考虑别的因素，你就知道那个四生素数表中放着x，y可以取值的元素，有小到大排列。程序需要解决任意两个数相加，有那个具体偶数无解即可。偶数是5类偶数中的偶数，其余偶数不需要考虑。

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 偶数
对制作出来的偶数表排序，