Wolfram Mathematica 如何解阶乘方程?
问题描述：
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}];
写得不是很好,但是这一段程序基本能够满足你的要求.主要是遍历素数,知道找到答案为止.