题目

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

提问时间：2020-11-25

答案

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...