虽然说，基本上没有什么问题，但是第一次外循环，仍就需要选择一次表文件（偶数表新）

SELECT 1
USE G:\三角递增法\偶数唯一表1.DBF ALIAS 偶唯一表1
SELECT 2
USE G:\三角递增法\无偶数表1.DBF ALIAS 无偶数1
kssj=SECONDS()
 For i=1 to 1190476
      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     && wou=INT((n-1)/5)*210+IIF(MOD(n,5)=1,30,0)+IIF(MOD(n,5)=2,90,0)+IIF(MOD(n,5)=3,120,0)+IIF(MOD(n.5)=4,180,0)+IIF(MOD(n,5)=0,210,0)
     wou=INT((n-1)/5)*210+s
    SELECT  1
    A=偶数
         IF A=wou
         SELECT 1
         skip
         LOOP
         ELSE
         SELECT 2
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   

ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是从已经形成的偶数表中，找出没有四生素数中项和解的偶数程序，在2500万内，有169692个反例（无中项和解的偶数）

SELECT 1
USE G:\三角递增法\偶数唯一表175.DBF ALIAS 偶唯一表175
SELECT 2
USE G:\三角递增法\无偶数表175.DBF ALIAS 无偶数175
kssj=SECONDS()
 For i=103571429 to 104761904
      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     && wou=INT((n-1)/5)*210+IIF(MOD(n,5)=1,30,0)+IIF(MOD(n,5)=2,90,0)+IIF(MOD(n,5)=3,120,0)+IIF(MOD(n.5)=4,180,0)+IIF(MOD(n,5)=0,210,0)
     wou=INT((n-1)/5)*210+s
    SELECT  1
    A=偶数
         IF A=wou
         SELECT 1
         skip
         LOOP
         ELSE
         SELECT 2
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   

ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对175个表的处理

无偶175        前连接        无偶176        后连接        无偶177
4351947720        1        4377160800        0        4402154640
4354379160        1        4388752380        0        4408097370
                43.75亿-44亿               
                前重叠区域               
今天用一种新算法，在5000万的跨度内，找到两个反例。

SELECT 1
USE G:\三角递增法\四生素数表中.DBF ALIAS 四生素数中
SELECT 2
USE G:\三角递增法\各段四生素数个数安整周期.DBF ALIAS 四生个数细分周期
kssj=SECONDS()
SELECT 1
     For j=1 to 238
      @ 3,6 say j
      fw=j*21000000
            SELECT 1
            GO 1
            COUNT ALL FOR 四中<=fw TO tj
              SELECT  2  
              APPEND BLANK   
              REPLACE 范围 WITH fw
              REPLACE 总个数 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是安整周期，打分的四生素数中项程序，把50亿内的四生素数中项分成了238块（区间段），为分步计算做准备。

真的应了吹水佬版主的那句话，自己一直在自问自答。与素数有关的问题，好像带点瘟疫，唯恐被传染上，都避之不及，那里还敢，来到这里，凑热闹。

UsE TDatabaseName!]Table | SQLViewName  2
使用 t 数据库名称表 sql 视图名称
[IN nWorkArea | cTableAlias]
在工作区 c 的桌面别名
[ONLINE)[ADMINN][AGAINJ[NOREQUERY
在线广告反对不公平的行为
[nDataSessionNumberl1[NODATA]
N 数据会话号码1无数据
[INDEX IndexFileList |?
索引文件列表
[ORDER [nIndexNumber |
序号
订单[ n 索引号]
N 阶索引号
iDXFileName[TAG] TagName [OF
文件名[标签]标签名[的
CDxFileNName
Cdx 文件名
ASCENDINGIDESCENDDING1T
上升下降
 [ALIAS cTableAlias[EXCLUSIVE]
 别名 c 表别名[独占]
 SHAREDI
 分享
 INOUPDATE)
 出库日期
 [CONNSTRING
 连接线
 cConnectionString i
 连接字符串
 (cStatementHandleMemvar)
 C 语句处理 memvar
用在线翻译获得的信息，强拉硬拽。

use in 3
admin
管理员
alias 别名
connstring  连接线
exdusive  突出的
index  索引
nodata  无数据
norequery  无节制的
noupdate 新的
online  在线
order  秩序
shared 共享的
用的在线翻译。

SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]] Select_List_Item [,...]
选择所有不同的 top nexpr% select list _ item
选择所有不同的 top nexpr% select _ list _ item
FROM [FORCE] Table_List_Item [,…] [WITH (BUFFERING =IExpr)]
从强制表列表项目与缓冲 iexpr
从强制表列表项目与缓冲 iexpr
[[JoinType] JOIN DatabaseName!]Table [[AS] Local_Alias]
连接类型连接数据库名称表作为本地别名
[ON.JoinCondition [AND | OR JoinCondition | FilterCondition] ..]
合并条件[和 | 或合并条件 | 过滤条件
WHERE JoinCondition | FilterCondition [AND | OR JoinCondition |
哪里合并条件 | 过滤条件[和 | 或合并条件
FilterCondition] ...]
过滤条件
[GROUP BY Column_List_Item [,. ..]]
按列列表项分组
[HAVING FilterCondition [AND | OR ..]]
具有过滤条件 [和 |或...]]
[UNION [ALL] SELECTCommand]
联合[所有]选择命令
[ORDER BY Order_item [AsC | DEsC] [,...]]
按订单项目[ asc | desc ]订购
[StorageDestination | DisplayDestination]
存储目标显示目的地
[PREFERENCE PreferenceName] [NOcoNsOLE] [PLAIN][NOWAIT]
首选项名称没有控制台普通没有等待
JoinType -INNER | LEFT| RIGHT | FULL [OUTER]
连体式内左右全外
StorageDestination -INTO [ARRAY ArrayNName | CURsOR CursorName
存储目的地-进入[阵列阵列名 | 光标目录名
[NOFILTER | READWRITE] | TABLE TableName]
没有过滤器读/写表名
DisplayDestination -TO [FILE FileName [ADDITIVE] | PRINTER
文件名加法打印机
[PROMPT] | SCREEN]
[提示] | 屏幕]
select n 语句的在线翻译

向你学习！