Display Table output as a grid of points

Visualized as squares rather than points

ArrayPlot[data,
 Frame -> True,
 FrameTicks -> {{Range@10, Range@10}, {Range@10, Range@10}},
 DataReversed -> True,
 PlotRangePadding -> None,
 Mesh -> All]

enter image description here


Inspired by @kglr and extending to arbitrary dimensions on the data, this may do what you want:

data = Module[{size = 11}, 
  Table[If[PrimeQ[a + b], True], {a, 1, size}, {b, 1, size}]];
With[{elements = Max[Dimensions[data]]}, 
 ListPlot[Position[data, True], 
  PlotStyle -> Directive[Black, PointSize[Large]], Frame -> True, 
  AspectRatio -> 1, 
  FrameTicks -> {{Range[elements], 
     Thread[{Range[elements], ""}]}, {Range@elements, 
     Thread[{Range[elements], ""}]}}, 
  GridLines -> {Range[elements], Range[elements]}, 
  PlotRange -> {{1, elements}, {1, elements}}, 
  PlotRangeClipping -> False]]

Shown with size set to 11 to show that it fits the generality.
enter image description here


How about BubbleChart?

tab = With[{n = 10}, PrimeQ @ Array[Plus, {n, n}]];

BubbleChart[Append[1] /@ Position[tab, True], GridLines -> (Range[1, #2] &)];

Labeled[%, {"A", "B"}, {Bottom, Left}]

enter image description here

Adding FrameTicks -> (Range[1, #2] &) gives:

enter image description here