To make a binary plot of a sequence we need to convert each term of the sequence into its binary representation. Then we have to put this representation in a form which make us able to build the plot easily. The following function converts the sequence in a matrix where the element i-j represents is the bit j of the element i of the sequence:

from numpy import zeros,uint8 from pylab import imshow,subplot,show def seq_to_bitmatrix(s): """ Returns a matrix where the row i is the binary representation of s[i] s must be a list of integers (also long) """ # maximum number of bits used in this sequence maxbit = len(bin(max(s))) M = zeros((len(s),maxbit),dtype=uint8) for i,e in enumerate(s): bits = bin(e)[2:] # bin() -> 0b100, we drop 2 chars for j,b in enumerate(bits): M[i,maxbit-len(bits)+j] = int(b) # fill the matrix return MThe matrix returned by the function above represent each bit with an integer. Of course, this is a waste of space but makes us able to use the function imshow in order to draw the binary plot:

def show_binary_matrix(M): imshow(M,cmap='Greys', interpolation='nearest') show()Now we have all the necessary. Let's plot the factorial sequence:

from math import factorial s = [factorial(n) for n in range(200)] show_binary_matrix(seq_to_bitmatrix(s))The following graph shows the result:

From this graph we can observe two interesting things. The first is that we need more than 1200 bits to represent the biggest number of the sequence we generated, which is 199!, and the second is that when

*n*grows the bits on the right tend to be unused.

Let's see what happen with the famous Fibonacci sequence:

fib_cache = {0:0,1:1} def fib_memo(n): """ Returns the first n Fibonacci numbers """ if n not in fib_cache: fib_cache[n] = fib_memo(n-1)+fib_memo(n-2) return fib_cache[n] s = [fib_memo(n) for n in range(1,150)] show_binary_matrix(seq_to_bitmatrix(s))In the snippet above we compute the first 149 Fibonacci numbers using memoization then we plotted the sequence in the same way of the factorial. This time the result is surprising:

Indeed, it is very interesting to observe that the graph reveals a fractal like pattern of hollow and filled triangles.

Another sequence that shows a fractal like series of patter is the sum of the first n natural numbers which we can plot as follows:

s = [n*(n+1)/2 for n in range(124)] show_binary_matrix(seq_to_bitmatrix(s).T)In this case the Gauss formula have been used to compute the terms of the sequence and this is the result:

This time the matrix have been transposed to have a vertical visualization. We have that each column is a binary representation of a term of the sequence. In conclusion, we plot the sequence

*n*for

^{p}*p = 1,2,3,4*:

# n^p for p in range(1,5): s = [pow(n,p) for n in range(124)] subplot(4,1,p) imshow(seq_to_bitmatrix(s).T,cmap='Greys', interpolation='nearest') show()And we have this:

We can see that for

*p=1,2*we have something that looks like the graph we obtained with the sequence of the sum of the first n natural numbers.