灵鹊做题网请大家看看我这mathematica程序哪里出错了
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/05/08 12:27:43
请大家看看我这mathematica程序哪里出错了
Mersenne[n_Integer]:=
Module[
{M,i,u=4},
If[!Prime Q[n],False,
M=2^n-1;
For[i=1,i
Mersenne[n_Integer]:=
Module[
{M,i,u=4},
If[!Prime Q[n],False,
M=2^n-1;
For[i=1,i
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, 300}]
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, 300}]