WOLFRAM

13 Ways of Looking at the Number 13

Why are we releasing Version 13 of Mathematica?

As a math and science company, Wolfram doesn’t fear two-digit number integers, especially that particular one between 12 and 14. That is to say, we don’t have triskaidekaphobia, not on Friday the 13th or any other day of the year.

13 Ways of Looking at the Number 13

Many nice things can be said about 13 beyond it being a ternary repdigit 1113 or the answer to Prime[6]. It’s one of just three known Wilson primes because Wilson prime equation = 2 834 329, an integer, and is also the fifth Mersenne prime exponent:

Engage with the code in this post by downloading the Wolfram Notebook
Mersenne prime exponent
&#10005


But 13 has much more going for it than just being a prime number, and here are 13 reasons why.

1. First, 13 is part of many linear recurrences. For example, 13 is a Fibonacci number where the limit of ratios between values goes to the golden ratio, phi, Φ2 = Φ + 1:

LinearRecurrence
&#10005


Limit
&#10005


The fifth substitution in the Ammann chair tiling thus has 13 chairs:

Ammann chair tiling
&#10005


Thirteen is also a tribonacci number, a term coined by Mark Feinberg at the age of 14. The ratio between terms goes to the tribonacci constant, t3 = t2 + t + 1:

LinearRecurrence
&#10005


Tribonacci numbers can be thought of as binary sequences without 000:

Table
&#10005


2. Thirteen is also a Narayana cow number, based on psi, Ψ3 = Ψ2 + 1, the supergolden ratio:

LinearRecurrence
&#10005


The sixth substitution in the psi-quad tiling thus has 13 quads:

Row@Table
&#10005


3. There are 13 Archimedean solids, in which both the golden ratio and tribonacci constant feature prominently. Similarly, there are 13 Archimedean duals, all of which make fair dice:

Archimedean duals
&#10005


4. As a number of form n2 + (n + 1)2, 13 is a centered square number:

Centered square number
&#10005


5. A combination lock with three buttons has 13 combinations where every button is pressed once, making it the third Fubini, or ordered Bell, number:

Ordered Bell number
&#10005


6. Balanced ternary notation allows three weights and a two-pan scale to measure weights 1 to 13:

Balanced ternary notation
&#10005


7. The remainder graph of 13 has the following form. To use it, pick a number like 2,522. Then start at 0 and follow 2 blue, 1 red, 5 blue, 1 red, 2 blue, 1 red, 2 blue to find the remainder of dividing 2,522 by 13. This works for any positive integer:

Remainder graph
&#10005


8. Using steps of N, E, NE or (1,0), (0,1), (1,1), there are 13 ways to get from (0,0) to (2,2), part of a combinatorial sequence known as the central Delannoy numbers:

del = Select
&#10005


These values can be calculated with Legendre polynomials:

Legendre polynomials
&#10005


9. There are 13 books in Euclid’s Elements. For example, Book I, Proposition 1 discusses the making of an equilateral triangle:

RandomInstance
&#10005


10. A sparse ruler of length n allows all integer distances up to n to be measured with a minimal number of marks. The sparse ruler for length 211 uses 26 marks and features 13 spacings of 13:

Sparse ruler
&#10005


11. The BioSequence for the string "THIRTEEN" is as follows:

MoleculePlot
&#10005


12. Books like An Elementary Introduction to the Wolfram Language use ISBN-13 numbers:

Validate ISBN-13
&#10005


13. Finally, for obscuring text in a 26-letter alphabet, the standard is the ROT13 Caesar cipher that rotates each letter forward 13 places:

ROT13 Caesar cipher
&#10005


This allows us to finish this article with an obscure piece of code:

Sample ROT13 Caesar cipher
&#10005


Comments

Join the discussion

!Please enter your comment (at least 5 characters).

!Please enter your name.

!Please enter a valid email address.

2 comments

  1. Another blog post that not only entertains and informs mathematically, but also informs in terms of Mathematica functionality.
    The ease of copying and pasting into one’s own Mathematica Notebook makes for some fun experimenting.
    Maybe something derived from psi-quad tiling will end up on a tee-shirt.
    Thanks, Ed.

    Reply
  2. Great Ed,
    On the other hand, Ophiuchus is the 13th sign of the zodiac.

    Reply