Re: Quick help needed very much!!!!
- To: mathgroup at smc.vnet.net
- Subject: [mg94061] Re: Quick help needed very much!!!!
- From: magma <maderri2 at gmail.com>
- Date: Thu, 4 Dec 2008 07:12:28 -0500 (EST)
- References: <200811290929.EAA14420@smc.vnet.net> <200811301201.HAA07727@smc.vnet.net>
You could do:
aa = {}; bb = {}; Monitor[
Do[If[(Sqrt[n! + 1] /. Sqrt[_] -> 1) > 1, Print[n]; AppendTo[aa, n];
AppendTo[bb, Sqrt[n! + 1] /. Sqrt[_] -> 1]], {n, 1, 10000000}], n]
aa
to see the running n values, but the algorithm stops working after a
certain n, as Daniel Lichtblau has pointed out