genius r679 - in trunk: . lib/number_theory

[jirka svn gnome org]

Author: jirka
Date: Sun Sep 21 22:51:07 2008
New Revision: 679
URL: http://svn.gnome.org/viewvc/genius?rev=679&view=rev

Log:

Sun Sep 21 17:50:50 2008  Jiri (George) Lebl <jirka 5z com>

	* lib/number_theory/primes.gel: Update the Mersenne prime info
	  to include the two newest ones.




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	Sun Sep 21 22:51:07 2008
@@ -106,7 +106,9 @@
 24036583
 25964951
 30402457
-32582657];
+32582657,
+37156667,
+43112609];
 protect("MersennePrimeExponents");
 
 # See http://www.mersenne.org
@@ -122,11 +124,11 @@
 		return true;
 
 	# http://www.mersenne.org / GIMPS doublechecked everything up
-	# to 16,320,053
-	if p <= 16320053 then
+	# to 17,001,247
+	if p <= 17001247 then
 		return false;
 
-	error("IsMersennePrimeExponent: Number too large (known values up to: " + 16320053 + ")");
+	error("IsMersennePrimeExponent: Number too large (known values up to: " + 17001247 + ")");
 	bailout
 );
 protect("IsMersennePrimeExponent")