[原创]请教vfbpgyfk先生一个编程问题

白新岭

截止2023年12月18日周一23:43分浏览量141345，回复2517，热度182
截止2023年12月19日周二23:29分浏览量141600，回复2518，热度182
浏览量的定性很好，待了好长，也没见其变化。

白新岭

截止2023年12月19日周二23:29分浏览量141600，回复2518，热度182
截止2023年12月20日周三22:19分浏览量141673，回复2519，热度182

白新岭

截止2023年12月20日周三22:19分浏览量141673，回复2519，热度182
截止2023年12月21日周四21:38分浏览量141878，回复2520，热度182

白新岭

截止2023年12月21日周四21:38分浏览量141878，回复2520，热度182
截止2023年12月22日周五22:29分浏览量142325，回复2521，热度182

白新岭

截止2023年12月22日周五22:29分浏览量142325，回复2521，热度182
截止2023年12月23日周六22:05分浏览量143646，回复2522，热度182
浏览量刷新了：143646-142325=1321=\(36^2+5^2\)

白新岭

截止2023年12月23日周六22:05分浏览量143646，回复2522，热度182
截止2023年12月24日周日21:16分浏览量144568，回复2523，热度182

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=4.553321575543800
SELECT 1
  GO 8
  A=素数
  s=s*A*(A^3-14*A^2+71*A-154)/(A-5)/(A-4)/(A-3)/(A-2)
        SKIP 1
        FOR  j=1 TO 50876200
        SELECT 1
        B=素数
        s=s*B*(B^3-14*B^2+71*B-154)/(B-5)/(B-4)/(B-3)/(B-2)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是四元中项之和求其公共系数的程序，最后需要除6.（3！=（4-1）！）

白新岭

    从素数17开始步入正规，我们开始统一采用最少合成方法的剩余类系数作为计算对象，
其他剩余类的系数用其结果还原回去。当素数P≥17时，针对每一个素数的最小合成系数
之一为：P*\({P^3-14P^2+71P-154}\over{(P-2)*(P-3)*(P-4)*(P-5)}\)
2023年12月24日23:30周日农历十一月十二，求其一个公共系数：4.536252546708197000
初始值：（到素数17时）4.553321575543800

白新岭

程序运行结果出来了。

白新岭

截止2023年12月24日周日21:16分浏览量144568，回复2523，热度182
截止2023年12月25日周一16:41分浏览量144890，回复2527，热度182