Wolfram Mathematica 如何解阶乘方程?用Wolfram Mathematica 如何求阶乘方程之解?定义p!为2到p的连续素数之积,如p!=50000,那么p最大值为13,怎么得来?提示有新回答，为什么看不见？

分类: 作业答案 • 2021-12-18 16:09:39

问题描述：

Wolfram Mathematica 如何解阶乘方程?
用Wolfram Mathematica 如何求阶乘方程之解?定义p!为2到p的连续素数之积,如p!=50000,那么p最大值为13,怎么得来?
提示有新回答，为什么看不见？

答

y = 1;
Do[y = Prime[i]*y; Print[Prime[i]];
If[y > 50000,Break[]],{i,1,100}];
写得不是很好,但是这一段程序基本能够满足你的要求.主要是遍历素数,知道找到答案为止.