# Inverting the order of a Table - Prime numbers

In a previous post I asked for the possibility to have a binary image of the coprimality inside the natural numbers. The following code

     TableForm[
table = Table[Boole[CoprimeQ[m, n]], {m, 13}, {n, 13}],


together with

     table == Table[Boole[GCD[m, n] == 1], {m, 13}, {n, 13}]

(* True *)

ArrayPlot[table, FrameTicks -> {Range[13], Range[13]}]


provides the following the result

Unfortunately, I need a plot as given below.

The problem is that the vertical axis should go from 1 to 13 and not vice versa. Any idea or tip?

• Reverse.....? – Henrik Schumacher Dec 31 '18 at 23:33

Use the option DataReversed:
ArrayPlot[table, Frame -> True, FrameTicks -> {Range[13], Range[13]},

table2 = Table[Boole[And @@ PrimeQ[{m, n}]], {m, 13}, {n, 13}];