构造任意长的二次等差素数数列

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差三生.DBF ALIAS 三生素数表
kssj=SECONDS()
For i=1 to 50876000
      @ 5,12 say i
     SELECT 1
     PUBLIC A
     A=素数
     jl=recno() &&记录指针位置
   
     skip
     PUBLIC B
     B=素数
     
     skip
     PUBLIC C
     C=素数
    cj1=B-A
    cj2=C-B
    IF cj1=2 AND cj2=4
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 三生素 WITH C     
         REPLACE 记录3 WITH jl+2
    ENDIF
      
      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 等差三生
SELECT 3
USE d:\二次等差素数数列\二次等差四生.DBF ALIAS 等差四生
kssj=SECONDS()
For i=1 to 379705
      @ 5,12 say i
     SELECT 2
     jl3=记录3
    SELECT  1
    GO jl3   
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 2
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=6
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 四生素 WITH A+6     
         REPLACE 记录4 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作二次等差4生素数

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差四生.DBF ALIAS 等差四生
SELECT 3
USE d:\二次等差素数数列\二次等差五生.DBF ALIAS 等差五生
kssj=SECONDS()
For i=1 to 56763
      @ 5,12 say i
     SELECT 2
     jl4=记录4
    SELECT  1
    GO jl4  
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 3
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=8
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 五生素 WITH A+8   
         REPLACE 记录5 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作二次等差5生素数

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差五生.DBF ALIAS 等差五生
SELECT 3
USE d:\二次等差素数数列\二次等差六生.DBF ALIAS 等差六生
kssj=SECONDS()
For i=1 to 10758
      @ 5,12 say i
     SELECT 2
     jl5=记录5
    SELECT  1
    GO jl5  
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 3
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=10
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 六生素 WITH A+10   
         REPLACE 记录6 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

到二次等差素数数列，素数链条为6时，只剩下1905个（10亿内）

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差六生.DBF ALIAS 等差六生
SELECT 3
USE d:\二次等差素数数列\二次等差七生.DBF ALIAS 等差七生
kssj=SECONDS()
For i=1 to 1905
      @ 5,12 say i
     SELECT 2
     jl6=记录6
    SELECT  1
    GO jl6  
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 4
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=12
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 七生素 WITH A+12   
         REPLACE 记录7 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作2次等差7生素数

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差七生.DBF ALIAS 等差七生
SELECT 3
USE d:\二次等差素数数列\二次等差八生.DBF ALIAS 等差八生
kssj=SECONDS()
For i=1 to 403
      @ 5,12 say i
     SELECT 2
     jl7=记录7
    SELECT  1
    GO jl7
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 5
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=14
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 八生素 WITH A+14   
         REPLACE 记录8 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

八生素        记录8
67        19
73        21
97        25
21613        2428
26737        2936
129037        12080
844483        67221
2073403        154008
3992257        282649
4889293        341268
6184693        424668
11900557        781938
21456103        1356998
24598417        1542359
33771637        2076248
34864267        2138920
50943847        3054336
51448417        3082743
51867253        3106371
55794007        3326786
56421403        3361965
61218307        3630128
67787593        3995535
69726703        4102995
76345177        4468526
85776193        4986229
86145937        5006480
86966827        5051366
90261763        5231336
92865847        5373422
93685357        5417982
97122253        5605198
99624703        5741138
102960337        5922152
107599813        6173356
108846217        6240935
110550667        6332934
113575783        6496159
118136323        6741545
122983087        7001759
132021103        7486300
162213463        9091544
165505633        9265632
172039633        9610813
178016107        9925877
180078373        10034516
183919147        10235959
197289397        10937267
207664453        11479664
207771463        11485300
232728703        12784275
234731557        12887998
258735847        14130717
260257087        14209137
286568587        15563320
307197097        16620936
310447507        16787412
316973677        17120882
333294373        17953283
342242023        18408951
382427083        20448332
382533367        20453712
426676123        22680889
462638497        24486889
470463067        24878948
476710363        25191466
482693557        25491055
483040813        25508442
494734183        26092817
501038173        26407741
507879007        26748535
526517527        27677139
527153647        27708787
545452543        28619150
558791383        29282228
564537817        29567306
591360907        30897119
603413857        31493844
655713727        34074776
671731483        34863534
676909033        35118057
695138317        36014268
708476983        36669213
722508937        37357213
749930773        38699801
778640047        40102993
782113483        40272776
838115767        43003695
840472363        43118405
853838863        43768584
866832103        44399792
901288573        46071916
923834323        47165174
925594513        47250443
926976487        47317467
932187463        47569402
938809507        47890063
960959437        48961860
965761453        49193996

白新岭

SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差八生.DBF ALIAS 等差八生
SELECT 3
USE d:\二次等差素数数列\二次等差九生.DBF ALIAS 等差九生
kssj=SECONDS()
For i=1 to 99
      @ 5,12 say i
     SELECT 2
     jl8=记录8
    SELECT  1
    GO jl8
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 5
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=16
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 九生素 WITH A+16
         REPLACE 记录9 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

九生素        记录9
83        23
89        24
113        30
844499        67223
51448433        3082744
51867269        3106373
85776209        4986230
86966843        5051368
93685373        5417983
97122269        5605199
107599829        6173357
113575799        6496160
118136339        6741548
122983103        7001761
180078389        10034518
232728719        12784276
316973693        17120884
483040829        25508443
564537833        29567307
749930789        38699803
840472379        43118406
901288589        46071917
960959453        48961861