[genius] Sat Jun 23 13:21:05 2012 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit 0339f70877e1f46b2e82c1139f8d42072dc073a2
Author: Jiri (George) Lebl <jirka 5z com>
Date:   Sat Jun 23 13:21:09 2012 -0500

    Sat Jun 23 13:21:05 2012  Jiri (George) Lebl <jirka 5z com>
    
    	* lib/number_theory/primes.gel: update where gimps is up to

 ChangeLog                    |    4 ++++
 lib/number_theory/primes.gel |    6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index da46cf3..fe05ed9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jun 23 13:21:05 2012  Jiri (George) Lebl <jirka 5z com>
+
+	* lib/number_theory/primes.gel: update where gimps is up to
+
 Thu May 31 11:54:40 2012  Jiri (George) Lebl <jirka 5z com>
 
 	* src/graphing.c, help/C/gel-function-list.xml: Add
diff --git a/lib/number_theory/primes.gel b/lib/number_theory/primes.gel
index 8fda2c7..e49568e 100644
--- a/lib/number_theory/primes.gel
+++ b/lib/number_theory/primes.gel
@@ -120,10 +120,10 @@ function IsMersennePrimeExponent(p) = (
 		return true;
 
 	# http://www.mersenne.org / GIMPS doublechecked everything up
-	# to 24,077,267 (on Mar. 20, 2012)
-	if p <= 24077267 then
+	# to 24,212,801 (on Jun. 23, 2012)
+	if p <= 24212801 then
 		return false;
 
-	error("IsMersennePrimeExponent: Number too large (known values up to: " + 24077267 + ")");
+	error("IsMersennePrimeExponent: Number too large (known values up to: " + 24212801 + ")");
 	bailout
 );