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

分类: 作业答案 • 2021-12-24 15:58:09

问题描述：

请大家看看我这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[! PrimeQ[n], False, M = 2^n - 1; For[i = 1, i