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