k生素数的渐进公式及中值的合成

白新岭

上边程序的大概思路：一个盛放有程序筛选出来的K生素数群的最后一个素数（每组中）的表；有一个已经提前放上素数的表，即素数表；还有一个表是盛放k生素数群的元素类，即程序中提到的生成元（或初始值）。
最中心的循环语句是把“bpz=被判值"开方前的所有素数依次调入，bpz以素数取余数，如果有一个余数与8类余数中的其一相同就被去掉，当所有根号前的素数都调完还没有相同余数时，就把该被判值写入k生素数群的表中。

熊一兵

宝贵资料，收藏了

白新岭

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\最密10生素数群.DBF ALIAS 最密10生素数
SELECT 2
USE E:\用vfp求k生素数数量\素数表2.DBF ALIAS 素数表
SELECT 3
USE E:\用vfp求k生素数数量\k10生成初始值31.DBF ALIAS 生成初始值31
*INPUT "请输入预先值 K= " TO yxk
*INPUT "请输入步长值 bcz= " TO bcz
*INPUT "请输入初始值 csz= " TO csz
*INPUT "请输入外循环起始值 xks= " TO xks
*INPUT "请输入外循环终结值 zds= " TO zds
GO top                                    &&***************这条语句是将“k8生成初始值31”表的指针移到“41001”处**************
DO WHILE NOT EOF()                          &&*********既然是调用表中信息，而且是后部分，就应该使用“DO WHILE NOT EOF()”语句，由它来判断是否到文件尾**********
@ 2,5 say RECNO()                       &&显示记录号
scy=生成元31                            &&计算被判断值
For i=0 to 0
bpz=scy+i*200560490130
Kf=INT(SQRT(bpz))                       &&求出被判断值的开方根
SELECT 素数表                         &&打开素数表
LOCATE FOR 素数>=kf                     &&根据开方根,查找最大素数
DO CASE
CASE EOF()                          &&如果超出素数表最后一条记录
GO BOTTOM
CASE 素数>kf                        &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
SKIP -1
ENDCASE
SSS=RECNO()                             &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
GO 11                                   &&从第二条记录开始读取素数(37)
FOR j=11 TO SSS                         &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(bpz,素数)                   &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=12 OR qmz=14 OR qmz=20 OR qmz=24 OR qmz=26 OR qmz=30 OR qmz=32
EXIT         
ENDIF
SKIP                                &&素数表指针向下移动一个
ENDFOR
IF j>sss
SELECT  最密10生素数                 &&打开保存求解结果的信息表
APPEND BLANK                        &&增加一条空记录
       REPLACE 被判值 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
ENDIF
ENDFOR
SELECT 生成初始值31
SKIP
ENDDO
CLEAR ALL
这是寻找10生素数群的vfp程序。
昨晚用此程序获得了200560490130内的10生素数群两组：
10生素数群→→10生素数群
33081664151→→83122625471
33081664153→→83122625473
33081664157→→83122625477
33081664159→→83122625479
33081664163→→83122625483
33081664169→→83122625489
33081664171→→83122625491
33081664177→→83122625497
33081664181→→83122625501
33081664183→→83122625503

白新岭

现在有找到了一组：
10生素数群
294920291201
294920291203
294920291207
294920291209
294920291213
294920291219
294920291221
294920291227
294920291231
294920291233

白新岭

在第三个周期内有找到了一组10生素数群：
10生素数群
573459229151
573459229153
573459229157
573459229159
573459229163
573459229169
573459229171
573459229177
573459229181
573459229183
每个周期可跨越2*3*5*7*11*13*17*19*23*29*31=200560490130个自然数。大概2千亿多点。按积分公式预测应该有11组，按说在每个周期中应该有2组才和理论值相呼应。
现在看来在小范围内理论值与实际值误差较大，当理论值的数量级大点时会向实际值靠近的很快。

白新岭

10生素数群→→10生素数群→→10生素数群
688697679401 →→730121110331 →→663903555851
688697679403 →→730121110333 →→663903555853
688697679407 →→730121110337 →→663903555857
688697679409 →→730121110339 →→663903555859
688697679413 →→730121110343 →→663903555863
688697679419 →→730121110349 →→663903555869
688697679421 →→730121110351 →→663903555871
688697679427 →→730121110357 →→663903555877
688697679431 →→730121110361 →→663903555881
688697679433 →→730121110363 →→663903555883

白新岭

每个不小于6的偶数在孪生素数域大部分也有分拆数对，偶数不能拆分成两个孪生素数之和的数也寥寥无几个。哥德巴赫猜想是偶数在素数域的分拆。孪生素数的个数比起素数的个数要少的多（在同一范围内）。

白新岭

这是天山草提供的2000亿内3生素数群的数量73808680，包括(K，k+2，k+6)与(K，k+4，k+6)两种类型。

白新岭

这是天山草提供的2000亿内3生素数群的数量73808680，包括(K，k+2，k+6)与(K，k+4，k+6)两种类型。

yangchuanju

多么好的帖子，为何不激活重用！