Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Quick help needed very much!!!!

• To: mathgroup at smc.vnet.net
• Subject: [mg93992] Quick help needed very much!!!!
• From: Artur <grafix at csl.pl>
• Date: Mon, 1 Dec 2008 07:01:14 -0500 (EST)
• References: <200811290929.EAA14420@smc.vnet.net> <200811301201.HAA07727@smc.vnet.net>
• Reply-to: grafix at csl.pl

Dear Mathematica Gurus,

I was run 2 days ago procedure
aa = {}; bb = {}; Do[
 If[(Sqrt[n! + 1] /. Sqrt[_] -> 1) > 1, Print[n]; AppendTo[aa, n];
  AppendTo[bb, Sqrt[n! + 1] /. Sqrt[_] -> 1]], {n, 1, 10000000}]; aa

Who know how interrupt these with possibility received information about 
value last n checked or received recent value n without interrupting.

If you know answer on my question send copy email answer also on my 
private email, please!

Best wishes
Artur

• Follow-Ups:
  • Re: Quick help needed very much!!!!
    • From: Daniel Lichtblau <danl@wolfram.com>