SELECT 1
USE D:\素数式系数\四生成元至29.DBF ALIAS 四成元29
SELECT 2
USE D:\素数式系数\四生三连体.DBF ALIAS 四三连
kssj=SECONDS()
SELECT1
GO 1
For i=1 to 17506120
@ 5,12 say i
SELECT1 &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=四中29
SKIP 1
PUBLIC B
B=四中29
SKIP 1
PUBLIC C
C=四中29
cj1=B-A&&求前后两个素数的差值
cj2=C-A&&求前后两个素数的差值
IF cj1=90 AND cj2=120
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 四三末 WITH A+120 &&将N值付给素数式
ENDIF
SELECT 1
GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
在至素数29时，搜寻四生素数三连体生成元程序，共计有3120*18=56160个。因为在12个素数式中有一对同余，（mod（6,29）=mod（122,29））.
在素数29阶乘内（6469693230内），有56160组12生素数式（四生素数三连体）可以产生四生素数三连体