[genius] Tue Aug 19 14:09:44 2014 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit 4528abaf523057be4bbf4f53ec6448900c4888d4
Author: Jiri (George) Lebl <jiri lebl gmail com>
Date:   Tue Aug 19 14:09:47 2014 -0500

    Tue Aug 19 14:09:44 2014  Jiri (George) Lebl <jirka 5z com>
    
        * lib/number_theory/prime.gel: update the known limits on mersenne
          primes from GIMPS

 ChangeLog                    |    5 +++++
 lib/number_theory/primes.gel |    6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index c804db5..85a6092 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Aug 19 14:09:44 2014  Jiri (George) Lebl <jirka 5z com>
+
+       * lib/number_theory/prime.gel: update the known limits on mersenne
+         primes from GIMPS
+
 Mon Aug 18 17:10:59 2014  Jiri (George) Lebl <jirka 5z com>
 
        * help/C/genius.xml: improve docs, mark when things were added,
diff --git a/lib/number_theory/primes.gel b/lib/number_theory/primes.gel
index de598a9..d9cd764 100644
--- a/lib/number_theory/primes.gel
+++ b/lib/number_theory/primes.gel
@@ -121,10 +121,10 @@ function IsMersennePrimeExponent(p) = (
                return true;
 
        # http://www.mersenne.org / GIMPS doublechecked everything up
-       # to 26,114,633 (on June 11, 2013)
-       if p <= 26114633 then
+       # to 30,852,383 (on Aug 19, 2014)
+       if p <= 30852383 then
                return false;
 
-       error("IsMersennePrimeExponent: Number too large (known values up to: " + 26114633 + ")");
+       error("IsMersennePrimeExponent: Number too large (known values up to: " + 30852383 + ")");
        bailout
 );