Number Theory Packages
Functions relevant to number theory are well represented in Mathematica with examples such as PrimePi, EulerPhi, MoebiusMu, and DivisorSigma. The NumberTheory packages broaden this set of functions. There are packages for proving primality, exploring the elliptic curve method for integer factorization, and finding primitive elements of multiple algebraic extensions of rationals. There are functions for approximating real numbers by rationals and approximating polynomials with real roots by polynomials with integer coefficients. Number theoretic functions such as Ramanujan and Siegel are also supported.
This causes the NumberTheory packages to load as they are needed.
In[1]:= <<NumberTheory`
Some of the plots in this section require the Graphics packages.
In[2]:= <<Graphics`
The ratios of the integers given by ProjectiveRationalize approximate the ratios of the corresponding real numbers , , , and within an error of .
In[3]:= (reals = N[{1, 1/EulerGamma, E, Pi}]; prec = 5; p = ProjectiveRationalize[reals, prec])
Out[3]=
Several gear ratios can be approximated simultaneously, under the constraint that the smallest gear have fewer than 110 teeth. Here the approximation to is .
In[4]:= (While[p[[1]] > 110, prec; p = ProjectiveRationalize[reals, prec]]; p)
Out[4]=
Squarefree integers have no factors that are perfect squares. SquareFreeQ determines whether an integer is squarefree.
Two integers are coprime if their greatest common divisor (GCD) is . This shows that there is a positive correlation between the squarefree property and coprimality.
In[5]:= (sample = Table[Random[Integer, 1000000], {100}]; xor = Map[(squarefree = SquareFreeQ[#]; coprime = (GCD[#, Random[Integer, 1000000]] == 1); If[Xor[squarefree, coprime], 1, 1])&, sample]; N[Apply[Plus, xor]/Length[xor]])
Out[5]=
Every positive integer can be represented as the sum of four squares, but there are relatively few perfect squares. Each of the remaining integers can be minimally represented as a sum of either two or three squares. The number of representations of an integer as a sum of squares is given by SumOfSquaresR[d, n].
This shows the percentage of numbers from to representable as a sum of a minimum of , , , or squares.
In[6]:= (squares = Table[ Which[ SumOfSquaresR[1, n] != 0, 1, SumOfSquaresR[2, n] != 0, 2, SumOfSquaresR[3, n] != 0, 3, True, 4], {n, 1, 100}]; PieChart[Map[Count[squares, #]&, Range[4]]])
Out[6]=
PrimitiveRoot[p] gives a cyclic generator of the multiplicative group mod , where is prime. Primitive root arrays are used for wave scattering over a range of frequencies.
This gives the primitive root array for .
In[7]:= (p = 19; r = PrimitiveRoot[p]; array = Table[PowerMod[r, n, p], {n, 0, p2}])
Out[7]=
Here is a depiction of a reflection phasegrating based on the array. The surface is pitted with a sequence of "wells" (shown in white) having depths proportional to the elements of the array.
In[8]:= (array5 = Flatten[Table[array, {5}]]; StackedBarChart[(parray5), array5, BarLabels > None, BarSpacing > 0, BarStyle > {GrayLevel[0], GrayLevel[1]}, AspectRatio >.1, Ticks > None])
Out[8]=
Using a simple model of the complex amplitude of the reflected wave, it can be shown that the spectrum is flat except at zero. This implies that the wave is reflected in all directions except the specular direction.
Equal intensity is scattered into all diffraction orders except the zero order.
In[9]:= (reflected = Map[Exp[I 2 Pi #/p]&, array]; powerspectrum = Abs[Fourier[reflected]]^2; ListPlot[powerspectrum, AxesOrigin > {0, 0}, PlotJoined > True, PlotRange > All])
Out[9]=
