[genius] Wed Feb 06 22:22:16 2013 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit 5f7297b0de9adb1d5c51ae53550bd5d7c477888b
Author: Jiri (George) Lebl <jirka 5z com>
Date:   Wed Feb 6 22:22:26 2013 -0600

    Wed Feb 06 22:22:16 2013  Jiri (George) Lebl <jirka 5z com>
    
    	* lib/number_theoory/primes.gel: update the mersenne stuff

 ChangeLog                    |    4 ++++
 lib/number_theory/primes.gel |    9 +++++----
 2 files changed, 9 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 3abde46..febb6e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Feb 06 22:22:16 2013  Jiri (George) Lebl <jirka 5z com>
+
+	* lib/number_theoory/primes.gel: update the mersenne stuff
+
 Sun Dec 23 13:22:07 2012  Jiri (George) Lebl <jirka 5z com>
 
 	* help/C/genius.xml: fix documentation of less than and greater than
diff --git a/lib/number_theory/primes.gel b/lib/number_theory/primes.gel
index cfca4d4..1068ad4 100644
--- a/lib/number_theory/primes.gel
+++ b/lib/number_theory/primes.gel
@@ -105,7 +105,8 @@ MersennePrimeExponents = [2
 32582657
 37156667
 42643801
-43112609];
+43112609
+57885161];
 
 # See http://www.mersenne.org
 SetHelp("IsMersennePrimeExponent","number_theory","Test if Mp is a Mersenne prime using a table");
@@ -120,10 +121,10 @@ function IsMersennePrimeExponent(p) = (
 		return true;
 
 	# http://www.mersenne.org / GIMPS doublechecked everything up
-	# to 25,921,121 (on Dec. 15, 2012)
-	if p <= 25921121 then
+	# to 26,083,693 (on Feb. 6, 2013)
+	if p <= 26083693 then
 		return false;
 
-	error("IsMersennePrimeExponent: Number too large (known values up to: " + 25921121 + ")");
+	error("IsMersennePrimeExponent: Number too large (known values up to: " + 26083693 + ")");
 	bailout
 );