|
数学
|
Do[s=2^w+3^w+4^w;如果[IntegerQ[w/100],打印[{w}]];如果[PrimeQ[s],打印[{w,s}]],{w,0,1000}]
做[If[PrimeQ[2^w+3^w+4^w],打印[n]],{n,0,5000}]
选择[Range[5000],PrimeQ[Plus@@({2,3,4}^#)]&](*哈维·P·戴尔2011年1月3日*)
删除案例[ParallelTable[If[PrimeQ[(2^n)+(3^n)+(4^n)],n,a],{n,0,19050}],a](*J.W.L.(一月)埃兰2021年12月20日*)
|