.. -*- coding: utf-8 -*-
.. linkall
Sage Quickstart for Number Theory
=================================
This `Sage `_ quickstart tutorial was developed
for the MAA PREP Workshop "Sage: Using Open\-Source Mathematics Software
with Undergraduates" (funding provided by NSF DUE 0817071). It is
licensed under the Creative Commons Attribution\-ShareAlike 3.0 license
(`CC BY\-SA `_).
Since Sage began life as a project in algebraic and analytic number
theory (and this continues to be a big emphasis), it is no surprise that
functionality in this area is extremely comprehensive. And it's also
just enjoyable to explore elementary number theory by computer.
Modular Arithmetic
------------------
Conveniently, the ring of integers
modulo :math:`n` is always available in Sage, so we can do
modular arithmetic very easily.
For instance, we can create a number in :math:`\ZZ/11\ZZ`. The
``type`` command tells us that :math:`a` is not a regular integer.
::
sage: a = mod(2,11); a; type(a); a^10; a^1000000
2
1
1
Note that we verified Fermat's "Little Theorem" in the previous cell,
for the prime :math:`p=11` and input :math:`a=2`.
Recalling the basic programming construct called a *loop* , we can
verify this for all :math:`a` in the integers modulo :math:`p`. Here,
instead of looping over an explicit list like ``[0,1,2,3,...8,9,10]``,
we loop over a Sage object.
::
sage: for a in Integers(11):
... print a, a^10
0 0
1 1
2 1
3 1
4 1
5 1
6 1
7 1
8 1
9 1
10 1
Notice that ``Integers(11)`` gave us an algebraic object which is the
ring of integers modulo the prime ideal generated by the element 11.
This works for much bigger numbers too, of course.
.. skip
::
sage: p=random_prime(10^200,proof=True)
sage: Zp=Integers(p) # Here we give ourselves shorthand for the modular integers
sage: a=Zp(2) # Here we ask for 2 as an element of that ring
sage: p; a; a^(p-1); a^(10^400)
83127880126958116183078749835647757239842289608629126718968330784897646881689610705533628095938824110164366160161355539845499311180100402016248362566463907409939681883876411550651284088712896660589151
2
1
21428062940380156097538386722913390559445420264965409656232714664156136144920173818936415427844953758774658350253363113516712541610660591925149144205368271119123211091215746697984955519927521190733305
Whenever you encounter a new object, you should try tab\-completion to
see what you can do to it. Try it here, and pick one (hopefully one
that won't be too long!).
.. skip
::
sage: Zp.
Here's one that sounds interesting.
.. skip
::
sage: Zp.zeta?
And we use it to find the fifth roots of unity in this field. We use
the *list comprehension* (set\-builder) notation from the programming
tutorial this time.
.. skip
::
sage: root_list = Zp.zeta(5,all=True); root_list
[80199770388563324100334548626345240081294273289109866436996652525328268652922508892946068538641538316054373187019168781211876036849531337824832226216684677717580165592175377569174402189281574130719978, 69839783895572286297568834485025073557885364348071061715465477061873400359794989367423407683971299361817245213947182344090739843367076197016322541936552333837227080274674865687645877633828974738751695, 57407444219199061498801298672323590163238592201574572482836619025676869537007609315386800852204337587805249250896651467970585450518157701115893749407382500580682168292929753154872678880962261809848942, 41936641877539676652531567723249367917108638987131879521606243741814402095343724540844607212999297064816230828621064026263296602805535970091696570138772210094329631491849238240260893562065879302446837]
Are these really fifth roots of unity?
.. skip
::
sage: [root^5 for root in root_list]
[1, 1, 1, 1]
Luckily, it checked out.
(If you didn't get any, then your random prime ended up being one for
which there *are* no fifth roots of unity -- try doing the sequence
over again!)
More basic functionality
------------------------
Similarly to the situation in linear algebra, there is much more we can
access at the elementary level, such as
- primitive roots,
- ways to write a number as a sum of squares,
- Legendre symbols,
- modular solving of basic equations,
- etc.
A good way to use Sage in this context is to allow students to
experiment with pencil and paper first, then use Sage to see whether
patterns they discover hold true before attempting to prove them.
::
sage: p = 13
sage: primitive_root(p); two_squares(p); is_prime(p)
2
(2, 3)
True
This makes it easy to construct elementary cryptographic examples as
well. Here is a standard example of a Diffie\-Hellman key exchange, for
instance. If we didn't do the second line, exponentiation would be
impractical.
.. skip
::
sage: p=random_prime(10^20,10^30) # a random prime between these numbers
sage: q=mod(primitive_root(p),p) # makes the primitive root a number modulo p, not an integer
sage: n=randint(1,p) # Alice's random number
sage: m=randint(1,p) # Bob's random number
sage: x=q^n; y=q^m
sage: x; y; x^m; y^n
66786436189350477660
77232558812003408270
45432410008036883324
45432410008036883324
The final line of the cell first requests Alice and Bob's (possibly)
public information, and then verifies that the private keys they get are
the same.
It is hard to resist including just one interact. How many theorems do
you see here?
.. skip
::
sage: @interact
sage: def power_table_plot(p=(7,prime_range(50))):
... P=matrix_plot(matrix(p-1,[mod(a,p)^b for a in range(1,p) for b in srange(p)]),cmap='jet')
... show(P)
This is a graphic giving the various powers of integers modulo :math:`p`
as colors, not numbers. The columns are the powers, so the first column
is the zeroth power (always 1) and the second column gives the colors
for the numbers modulo the given prime (first power).
One more very useful object is the prime counting function
:math:`\pi(x)`. This comes with its own custom plotting.
::
sage: prime_pi(100); plot(prime_pi,1,100)
25
Graphics object consisting of 1 graphics primitive
A very nice aspect of Sage is combining several aspects of mathematics
together. It can be very eye\-opening to students to see analytic
aspects of number theory early on.
(Note that we have to reassign :math:`x` to a variable, since above it
was a cryptographic key!)
::
sage: var('x')
x
sage: plot(prime_pi,2,10^6,thickness=2)+plot(Li,2,10^6,color='red')+plot(x/ln(x),2,10^6,color='green')
Graphics object consisting of 3 graphics primitives
Advanced Number Theory
----------------------
For those who are interested, more advanced number\-theoretic objects
are easy to come by; we end with a brief sampler of these.
In the first example, `K` is the field extension
:math:`\QQ(\sqrt{-14})`, where the symbol ``a`` plays the role of
:math:`\sqrt{-14}`; we discover several basic facts about :math:`K` in
the next several cells.
::
sage: K. = NumberField(x^2+14); K
Number Field in a with defining polynomial x^2 + 14
::
sage: K.discriminant(); K.class_group().order(); K.class_group().is_cyclic()
-56
4
True
Various zeta functions are also available; here is a complex plot of the
Riemann zeta.
::
sage: complex_plot(zeta, (-30,30), (-30,30))
Graphics object consisting of 1 graphics primitive
Cryptography
------------
Sage supports various more advanced cryptographic procedures as well as
some basic pedagogical ones natively. This example is adapted from the
documentation.
::
sage: from sage.crypto.block_cipher.sdes import SimplifiedDES
sage: sdes = SimplifiedDES(); sdes
Simplified DES block cipher with 10-bit keys
::
sage: bin = BinaryStrings()
sage: P = [0,1,0,0,1,1,0,1] # our message
sage: K = sdes.random_key() # generate a random key
sage: C = sdes.encrypt(P, K) # encrypt our message
sage: plaintxt = sdes.decrypt(C, K) # decrypt it
sage: plaintxt # print it
[0, 1, 0, 0, 1, 1, 0, 1]
See also the cryptography example in the :ref:`discrete math quickstart
`.