请大家看看我这mathematica程序哪里出错了

分类: 作业答案 • 2021-12-30 13:06:19

问题描述：

请大家看看我这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