请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If_其他解答

请大家看看我这mathematica程序哪里出错了
Mersenne[n_Integer]:=
Module[
{M,i,u=4},
If[!Prime Q[n],False,
M=2^n-1;
For[i=1,i

人气：439 ℃　时间：2020-05-22 19:29:50

解答

Mersenne[n_Integer] :=Module[{M, i, u = 4}, If[! PrimeQ[n], False, M = 2^n - 1; For[i = 1, i < n - 1, i++, u = Mod[u^2 - 2, M]];If[u == 0, Print[True], Print[False]]]]Do[Mersenne[n], {n, 2, 30...