ArrayPlot[Table[Boole[SquareFreeQ[x + I y]], {x, 50}, {y, 50}]]