ProjectEuler Mathematica 答案

最新推荐文章于 2025-12-04 22:00:44 发布

原创最新推荐文章于 2025-12-04 22:00:44 发布 · 223 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#算法 #恰饭 #其他

本文介绍了一种使用Mathematica代码寻找小于100万的最大素数和的方法。通过构建素数列表并计算其累积和，最终找到满足条件的最大素数和为997651。

50

f[1] = Prime[1];
f[n_] := f[n] = f[n - 1] + Prime[n];
i = 1;
While[f[i] < 1000000, i++];
maxIter = i - 1;
primeList = Table[Prime[i], {i, maxIter}]; i = 1; While[
 Not[Or @@ 
   PrimeQ[MovingAverage[primeList, maxIter - i]*(maxIter - i)]], 
 i = i + 1];
SelectFirst[
 Reverse[MovingAverage[primeList, maxIter - i]*(maxIter - i)], PrimeQ]
#结果
997651