|

楼主 |
发表于 2025-8-11 17:16
|
显示全部楼层
c = 1; Do[ Do[ If[ PrimeQ[ n ] && PrimeQ[ n + 2 ] && PrimeQ[ n + 6 ] && PrimeQ[ n + 8 ], c++ ], {n, 10^n + 1, 10^(n + 1), 10} ]; Print[ c ], {n, 1, 15} ] (* Weisstein *)
(* First run program for A090258 *) Table[Length[Select[A090258, # < 10^n &]], {n, 5}] (* Alonso del Arte, Aug 12 2012 *)
翻译
c = 1; Do[ Do[ If[ PrimeQ[ n ] && PrimeQ[ n 2 ] && PrimeQ[ n 6 ] && PrimeQ[ n 8 ], c ], {n, 10^n 1, 0^(n 1), 10} ]; Print[ c ], {n, 1, 15} ] (* Weisstein *)
(* 运行A090258程序 *) Table[Length[Select[A090258, # < 10^n &, {n, 5}] (* Alonso del Arte, 2012年8月12日 *)
它的程序运算原理就是当n是素数时,同时n+2,n+6,n+8也是素数,属于“遍历”大搜寻,不错过每一个n值,并非用"生成元"寻找,我在vfp中,从生成元中找最密4生素数,只用最后一个值(它的余数不能是0,2,6,8即可),比那种所筛选的样本数量远远量小,所以,正常情况下用时较少(当然,各种软件的计算速度,电脑的内存,储存量,及运算速度的不同,会有不同的结论),但是,单方面比较,计算量是远远少于它的运算量的。 |
|