diff --git a/Beal.ipynb b/Beal.ipynb index 3f39cde..c69a057 100644 --- a/Beal.ipynb +++ b/Beal.ipynb @@ -5,16 +5,15 @@ "metadata": { "button": false, "collapsed": true, - "deletable": true, "new_sheet": false, "run_control": { "read_only": false } }, "source": [ - "
\n",
"\n",
@@ -63,7 +60,7 @@
"$A^x + B^y = C^z$
\n",
"$A, B, C$ have no common prime factor.\n",
"\n",
- "(If you think you have a valid counterexample, before you share it with Andrew Beal, or me, or anyone else, you can check it with my [Online Beal Counterexample Checker](http://norvig.com/bealcheck.html).)\n",
+ "(If you think you might have a valid counterexample, before you share it with Andrew Beal or anyone else, you can check it with my [Online Beal Counterexample Checker](http://norvig.com/bealcheck.html).)\n",
"\n",
"
\n",
"\n",
@@ -92,7 +89,6 @@
"metadata": {
"button": false,
"collapsed": true,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -108,8 +104,6 @@
"execution_count": 2,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -139,14 +133,13 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
}
},
"source": [
- "**WOW!** The result is `True`! Is this a real counterexample to Beal? And also a disproof of Fermat?\n",
+ "**WOW! The result is `True`!** Is this a real counterexample to Beal? And also a disproof of Fermat?\n",
"\n",
"Alas, it is not. Notice the decimal point in \"`3.`\", indicating a floating point number, with inexact, limited precision. Change the inexact \"`3.`\" to an exact \"`3`\" and the result changes to \"`False`\". Below we see that the two sides of the equation are the same for the first 18 digits, but differ starting with the 19th: "
]
@@ -156,8 +149,6 @@
"execution_count": 3,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -185,7 +176,6 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -194,9 +184,11 @@
"source": [
"They say \"close\" only counts in horseshoes and hand grenades, and if you threw two horseshoes at a stake on the planet [Kapteyn-b](https://en.wikipedia.org/wiki/Kapteyn_b) (a possibly habitable and thus possibly horseshoe-playing exoplanet 12.8 light years from Earth) and the two paths differed in the 19th digit, the horseshoes would end up [less than an inch](https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=12.8%20light%20years%20*%201e-19%20in%20inches) apart. That's really, really close, but close doesn't count in number theory.\n",
"\n",
+ "Another near-solution was proposed by Mustafa Pehlivan: $193^{33554432} + 33554432^{193} = 37249^{16777216}$. Both $193^{33554432}$ and $37249^{16777216}$ are 76,690,578-digit numbers (while $33554432^{193}$ is a puny 1,453 digits), so it is possible that the two sides are equal, and in fact they agree in all but the last 4 of the 76 million digits. There is no analogy I can make in the physical universe that is that close.\n",
+ "\n",
"# *The Simpsons* and Fermat\n",
"\n",
- "Speaking of *close*: in two different [episodes of *The Simpsons*](http://www.npr.org/sections/krulwich/2014/05/08/310818693/did-homer-simpson-actually-solve-fermat-s-last-theorem-take-a-look), close counterexamples to Fermat's Last Theorem are shown: \n",
+ "In two different [episodes of *The Simpsons*](http://www.npr.org/sections/krulwich/2014/05/08/310818693/did-homer-simpson-actually-solve-fermat-s-last-theorem-take-a-look), close counterexamples to Fermat's Last Theorem are shown: \n",
"$1782^{12} + 1841^{12} = 1922^{12}$ and $3987^{12} + 4365^{12} = 4472^{12}$. These were designed by *Simpsons* writer David X. Cohen to be correct up to the precision found in most handheld calculators. Cohen found the equations with a program that must have been something like this:"
]
},
@@ -205,8 +197,6 @@
"execution_count": 4,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -242,8 +232,6 @@
"execution_count": 5,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -251,44 +239,32 @@
},
"outputs": [
{
- "data": {
- "text/plain": [
- "(1782, 1841, 1922, 12)"
- ]
- },
- "execution_count": 5,
- "metadata": {},
- "output_type": "execute_result"
+ "ename": "NameError",
+ "evalue": "name 'esimpsons' is not defined",
+ "output_type": "error",
+ "traceback": [
+ "\u001b[0;31m---------------------------------------------------------------------------\u001b[0m",
+ "\u001b[0;31mNameError\u001b[0m Traceback (most recent call last)",
+ "\u001b[0;32m \n",
"* Are we justified in having a single value for each key in the `Czroots` table? Consider that $81 = 3^4 = 9^2$. We put `{81: 3}` in the table and discard `{81: 9}`, because any number that has 9 as a factor will always have 3 as a factor as well, so 3 is all we need to know. But what if a number could be formed with two bases where neither was a multiple of the other? For example, what if $2^7 = 5^3 = s$; then wouldn't we have to have both 2 and 5 as values for $s$ in the table? Fortunately, that can never happen, because of the [fundamental theorem of arithmetic](https://en.wikipedia.org/wiki/Fundamental_theorem_of_arithmetic).\n",
@@ -803,7 +666,7 @@
"* Could there be a rounding error involving the `exponent` function that was not caught by the tests? Possibly; but `exponent` is not used to find counterexamples, only to print them, so any such error wouldn't cause us to miss a counterexample.\n",
"\n",
" \n",
- "* Are we justified in only considering exponents that are odd primes, or the number 4? In one sense, yes, because when we consider the two terms $A^{qp}$ and $(A^q)^p$, we find they are always equal, and always have the same prime factors (the factors of $A$), so for the purposes of the Beal problem, they are equivalent, and we only need consider one of them. In another sense, there is a difference. With this optimization, when we run `beal(6, 10)`, we are no longer testing $512$ as a value of $A$ or $B$, even though $512 = 2^9$ and both $2$ and $9$ are within range, because the program chooses to express $512$ as $8^3$, and $8$ is not in the specified range. So the program is still correctly searching for counterexamples, but the space that it searches for given `max_A` and `max_x` is different with this optimization.\n",
+ "* Are we justified in only considering exponents that are odd primes, or the number 4? In one sense, yes, because when we consider the two terms $A^{(qp)}$ and $(A^q)^p$, we find they are always equal, and always have the same prime factors (the factors of $A$), so for the purposes of the Beal problem, they are equivalent, and we only need consider one of them. In another sense, there is a difference. With this optimization, when we run `beal(6, 10)`, we are no longer testing $512$ as a value of $A$ or $B$, even though $512 = 2^9$ and both $2$ and $9$ are within range, because the program chooses to express $512$ as $8^3$, and $8$ is not in the specified range. So the program is still correctly searching for counterexamples, but the space that it searches for given `max_A` and `max_x` is different with this optimization.\n",
"\n",
" \n",
"* Are we really sure that when $A$ and $B$ have a common factor greater than 1, then\n",
@@ -815,7 +678,6 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -825,24 +687,23 @@
"\n",
"# Faster Arithmetic (mod *p*)\n",
"\n",
- "Arithmetic is slow with integers that have thousands of digits. If we want to explore much further, we'll have to make the program more efficient. An obvious improvement would be to do all the arithmetic module some prime number $p$ that fits in one word. Then we know:\n",
+ "Arithmetic is slow with integers that have thousands of digits. If we want to explore much further, we'll have to make the program more efficient. An obvious improvement would be to do all the arithmetic module some number $m$. Then we know:\n",
"\n",
"$$\\mbox{if} ~~ \n",
"A^x + B^y = C^z\n",
"~~ \\mbox{then} ~~\n",
- "A^x (\\mbox{mod} ~ p) + B^y (\\mbox{mod} ~ p) = C^z \\;(\\mbox{mod} ~ p)$$\n",
+ "(A^x (\\mbox{mod} ~ m) + B^y (\\mbox{mod} ~ m)) (\\mbox{mod} ~ m) = C^z \\;(\\mbox{mod} ~ m)$$\n",
"\n",
"\n",
- "So we can do efficient tests modulo $p$, and then do the full arithmetic only for combinations that work modulo $p$. Unfortunately there will be collisions (two numbers that are distinct, but are equal mod $p$), so the tables will have to have lists of values. Here is a simple, unoptimized implementation:"
+ "So we can do efficient tests modulo $m$, and then do the full arithmetic only for combinations that work modulo $m$. Unfortunately there will be collisions (two numbers that are distinct, but are equal mod $m$), so the tables will have to have lists of values. Here is a simple, unoptimized implementation:"
]
},
{
"cell_type": "code",
- "execution_count": 16,
+ "execution_count": null,
"metadata": {
"button": false,
"collapsed": true,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -854,37 +715,37 @@
"from itertools import combinations, product\n",
"from collections import defaultdict\n",
" \n",
- "def beal_modp(max_A, max_x, p=2**31-1):\n",
+ "def beal_modp(max_A, max_x, m=2**31-1):\n",
" \"\"\"See if any A ** x + B ** y equals some C ** z (mod p), with gcd(A, B) == 1.\n",
- " If so, verify that the equation works without the (mod p).\n",
+ " If so, verify that the equation works without the (mod m).\n",
" Consider any 1 <= A,B <= max_A and x,y <= max_x, with x,y prime or 4.\"\"\"\n",
- " assert p >= max_A\n",
- " Apowers = make_Apowers_modp(max_A, max_x, p)\n",
- " Czroots = make_Czroots_modp(Apowers)\n",
+ " assert m >= max_A\n",
+ " Apowers = make_Apowers_modm(max_A, max_x, m)\n",
+ " Czroots = make_Czroots_modm(Apowers)\n",
" for (A, B) in combinations(Apowers, 2):\n",
" if gcd(A, B) == 1:\n",
- " for (Axp, x), (Byp, y) in product(Apowers[A], Apowers[B]): \n",
- " Czp = Axp + Byp\n",
- " if Czp in Czroots:\n",
+ " for (Axm, x), (Bym, y) in product(Apowers[A], Apowers[B]): \n",
+ " Czm = (Axm + Bym) % m\n",
+ " if Czm in Czroots:\n",
" lhs = A ** x + B ** y\n",
- " for (C, z) in Czroots[Czp]:\n",
+ " for (C, z) in Czroots[Czm]:\n",
" if lhs == C ** z:\n",
" print('{} ** {} + {} ** {} == {} ** {} == {}'\n",
" .format(A, x, B, y, C, z, C ** z)) \n",
" \n",
"\n",
- "def make_Apowers_modp(max_A, max_x, p): \n",
- " \"A dict of {A: [(A**3 (mod p), 3), (A**4 (mod p), 4), ...]}.\"\n",
+ "def make_Apowers_modm(max_A, max_x, m): \n",
+ " \"A dict of {A: [(A**3 (mod m), 3), (A**4 (mod m), 4), ...]}.\"\n",
" exponents = exponents_upto(max_x)\n",
- " return {A: [(pow(A, x, p), x) for x in (exponents if (A != 1) else [3])]\n",
+ " return {A: [(pow(A, x, m), x) for x in (exponents if (A != 1) else [3])]\n",
" for A in range(1, max_A+1)}\n",
"\n",
- "def make_Czroots_modp(Apowers): \n",
- " \"A dict of {C**z (mod p): [(C, z),...]}\"\n",
+ "def make_Czroots_modm(Apowers): \n",
+ " \"A dict of {C**z (mod m): [(C, z),...]}\"\n",
" Czroots = defaultdict(list)\n",
" for A in Apowers:\n",
- " for (Axp, x) in Apowers[A]:\n",
- " Czroots[Axp].append((A, x))\n",
+ " for (Axm, x) in Apowers[A]:\n",
+ " Czroots[Axm].append((A, x))\n",
" return Czroots "
]
},
@@ -892,7 +753,6 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -905,35 +765,11 @@
},
{
"cell_type": "code",
- "execution_count": 17,
- "metadata": {
- "button": false,
- "collapsed": false,
- "deletable": true,
- "new_sheet": false,
- "run_control": {
- "read_only": false
- }
- },
- "outputs": [
- {
- "data": {
- "text/plain": [
- "{1: [(1, 3)],\n",
- " 2: [(8, 3), (16, 4), (32, 5), (128, 7)],\n",
- " 3: [(27, 3), (81, 4), (243, 5), (187, 7)],\n",
- " 4: [(64, 3), (256, 4), (24, 5), (384, 7)],\n",
- " 5: [(125, 3), (625, 4), (125, 5), (125, 7)],\n",
- " 6: [(216, 3), (296, 4), (776, 5), (936, 7)]}"
- ]
- },
- "execution_count": 17,
- "metadata": {},
- "output_type": "execute_result"
- }
- ],
+ "execution_count": null,
+ "metadata": {},
+ "outputs": [],
"source": [
- "Apowers = make_Apowers_modp(6, 10, 1000)\n",
+ "Apowers = make_Apowers_modm(6, 10, 1000)\n",
"Apowers"
]
},
@@ -941,69 +777,35 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
}
},
"source": [
- "And each item in the `Czroots` table is of the form `{C**z (mod p): [(C, z), ...]}`.\n",
+ "And each item in the `Czroots` table is of the form `{C**z (mod m): [(C, z), ...]}`.\n",
"For example, `936: [(6, 7)]`."
]
},
{
"cell_type": "code",
- "execution_count": 18,
+ "execution_count": null,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
}
},
- "outputs": [
- {
- "data": {
- "text/plain": [
- "defaultdict(list,\n",
- " {1: [(1, 3)],\n",
- " 8: [(2, 3)],\n",
- " 16: [(2, 4)],\n",
- " 24: [(4, 5)],\n",
- " 27: [(3, 3)],\n",
- " 32: [(2, 5)],\n",
- " 64: [(4, 3)],\n",
- " 81: [(3, 4)],\n",
- " 125: [(5, 3), (5, 5), (5, 7)],\n",
- " 128: [(2, 7)],\n",
- " 187: [(3, 7)],\n",
- " 216: [(6, 3)],\n",
- " 243: [(3, 5)],\n",
- " 256: [(4, 4)],\n",
- " 296: [(6, 4)],\n",
- " 384: [(4, 7)],\n",
- " 625: [(5, 4)],\n",
- " 776: [(6, 5)],\n",
- " 936: [(6, 7)]})"
- ]
- },
- "execution_count": 18,
- "metadata": {},
- "output_type": "execute_result"
- }
- ],
+ "outputs": [],
"source": [
- "make_Czroots_modp(Apowers)"
+ "make_Czroots_modm(Apowers)"
]
},
{
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
@@ -1015,26 +817,15 @@
},
{
"cell_type": "code",
- "execution_count": 19,
+ "execution_count": null,
"metadata": {
"button": false,
- "collapsed": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
}
},
- "outputs": [
- {
- "name": "stdout",
- "output_type": "stream",
- "text": [
- "CPU times: user 9 s, sys: 145 ms, total: 9.14 s\n",
- "Wall time: 9.27 s\n"
- ]
- }
- ],
+ "outputs": [],
"source": [
"%time beal_modp(500, 100)"
]
@@ -1043,33 +834,29 @@
"cell_type": "markdown",
"metadata": {
"button": false,
- "deletable": true,
"new_sheet": false,
"run_control": {
"read_only": false
}
},
"source": [
- "This is a bit faster than the previous version, and the idea is that as we start dealing with much larger integers, this version will be even faster, relatively. I could improve this version by caching certain computations, managing the memory layout better, moving some computations out of loops, considering using multiple primes (as in a Bloom filter), finding a way to parallelize the program, and re-coding in a faster compiled language (such as C++ or Go or Julia). Then I could invest thousands (or millions) of CPU hours searching for counterexamples. \n",
+ "We don't see a big speedup here, but the idea is that as we start dealing with much larger integers, this version will be faster. I could improve this version by caching certain computations, managing the memory layout better, moving some computations out of loops, considering using multiple different numbers as the modulus (as in a Bloom filter), finding a way to parallelize the program, and re-coding in a faster compiled language (such as C++ or Go or Julia). Then I could invest thousands (or millions) of CPU hours searching for counterexamples. \n",
"\n",
- "But [Witold Jarnicki](https://plus.sandbox.google.com/+WitoldJarnicki/posts) and [David Konerding](http://www.konerding.com/~dek/) already did that: they wrote a C++ program that built a table of $C^z \\;(\\mbox{mod} \\; p)$ up to $5000^{5000}$, and, in parallel across thousands of machines, searched for $A, B$ up to 200,000 and $x, y$ up to 5,000, but found no counterexamples. On a smaller scale, Edwin P. Berlin searched all $C^z$ up to $10^{17}$ and also found nothing. So I don't think it is worthwhile to continue on that path."
+ "But [Witold Jarnicki](https://plus.sandbox.google.com/+WitoldJarnicki/posts) and [David Konerding](http://www.konerding.com/~dek/) already did that: they wrote a C++ program that, in parallel across thousands of machines, searched for $A, B$ up to 200,000 and $x, y$ up to 5,000, but found no counterexamples. So I don't think it is worthwhile to continue on that path.\n",
+ "\n",
+ "# Conclusion\n",
+ "\n",
+ "This was fun, but I can't recommend anyone spend a serious amount of computer time looking for counterexamples to the Beal Conjecture—the money you would have to spend in computer time would be more than the expected value of your prize winnings. I suggest you work on a proof rather than a counterexample, or work on some other interesting problem instead!"
]
},
{
- "cell_type": "markdown",
+ "cell_type": "code",
+ "execution_count": null,
"metadata": {
- "button": false,
- "deletable": true,
- "new_sheet": false,
- "run_control": {
- "read_only": false
- }
+ "collapsed": true
},
- "source": [
- "# Conclusion\n",
- "\n",
- "This was fun, but I can't recommend anyone spend a serious amount of computer time looking for counterexamples to the Beal Conjecture—the money you invest in computer time would be more than the expected value of your prize winnings. I suggest you work on a proof rather than a counterexample, or work on some other interesting problem instead!"
- ]
+ "outputs": [],
+ "source": []
}
],
"metadata": {
@@ -1088,9 +875,9 @@
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython3",
- "version": "3.5.1"
+ "version": "3.5.3"
}
},
"nbformat": 4,
- "nbformat_minor": 0
+ "nbformat_minor": 1
}