genius r654 - in trunk: . lib/number_theory

[jirka svn gnome org]

Author: jirka
Date: Tue May 20 07:36:51 2008
New Revision: 654
URL: http://svn.gnome.org/viewvc/genius?rev=654&view=rev

Log:

Tue May 20 02:36:47 2008  Jiri (George) Lebl <jirka 5z com>

	* lib/number_theory/primes.gel: update slightly the upper bound on
	  double checked mersenne prime exponents to newest value




Modified:
   trunk/ChangeLog
   trunk/lib/number_theory/primes.gel

Modified: trunk/lib/number_theory/primes.gel
==============================================================================
--- trunk/lib/number_theory/primes.gel	(original)
+++ trunk/lib/number_theory/primes.gel	Tue May 20 07:36:51 2008
@@ -122,11 +122,11 @@
 		return true;
 
 	# http://www.mersenne.org / GIMPS doublechecked everything up
-	# to 16,266,800
-	if p <= 16266800 then
+	# to 16,320,053
+	if p <= 16320053 then
 		return false;
 
-	error("IsMersennePrimeExponent: Number too large (known values up to: " + 16266800 + ")");
+	error("IsMersennePrimeExponent: Number too large (known values up to: " + 16320053 + ")");
 	bailout
 );
 protect("IsMersennePrimeExponent")