寻找最小素数P，满足如下条件

shshsh_0510

要求程序行越少越好,用gxq的改个个示意性的：其中XXXX=100内素数积，main里边1行
#include <stdio.h>
#include "../../../HugeCalc_API/CppAPI/Include/HugeCalc.h"   
#include "../../../HugeCalc_API/CppAPI/Include/HugeInt.h"   
#pragma message( "automatic link to ../../../HugeCalc_API/CppAPI/Lib/HugeCalc.lib" )
#pragma comment( lib, "../../../HugeCalc_API/CppAPI/Lib/HugeCalc.lib" )
void main(int argc, char* argv[]){
        for(CHugeInt hugeResult = CHugeInt(XXXX) ;!hugeResult.IsPrime() ;hugeResult += CHugeInt(XXXX))   printf( "If this is the last line ,P is the answer,otherwise,see the next line . P=%s\r\n", (LPCTSTR)hugeResult );
}

gxqcn

这让人联想到“火星人”计算pi的代码。

无心人

要求不用大数库的阿

mathematica

解析错误呀，受不了！

mathematica

(*寻找最小素数P，满足如下条件*)
(*http://bbs.emath.ac.cn/viewthread.php?tid=574*)
pm=Table[Prime@n,{n,1,25}];(*产生100以内的素数,这个需要自己观察范围*)
pn=pm-1;(*都减去1*)
(*利用中国剩余定理*)
a=ChineseRemainder[pn,pm];(*利用中国剩余定理最小的数*)
b=LCM@@pm;(*最小公倍数,试验了几下: /@ @@ 终于找到符合要求的*)
Do[t=a+k*b;If[PrimeQ@t,Print[{t,k}];Break[]],{k,0,100}]


用中国剩余定理计算出来的！！！！！！
{9222271855782073699012408589327024279,3}

mathematica

如果剩余依次是1、2、3、4、5、......25
那么结果是
{3247152343721076950889641202183732053,1}


代码：
(*寻找最小素数P，满足如下条件*)
(*http://bbs.emath.ac.cn/viewthread.php?tid=574*)
pm=Table[Prime@n,{n,1,25}];(*产生100以内的素数,这个需要自己观察范围*)
pn=Range@25;(*从1到25，25个整数*)
(*利用中国剩余定理*)
a=ChineseRemainder[pn,pm];(*利用中国剩余定理最小的数*)
b=LCM@@pm;(*最小公倍数,试验了几下: /@ @@ 终于找到符合要求的*)
Do[t=a+k*b;If[PrimeQ@t,Print[{t,k}];Break[]],{k,0,100}]