From 1 to 10,000

t = Flatten[Table[{i, j}, {i, 10}, {j, 10}], 1];
f[0, p_] := p;
f[n_Integer, p_] := Map[f[n - 1, p + 12^n #] &, t];
points = Partition[Flatten[f[2, {0, 0}]], 2];
r = {Min[points] - 1, Max[points] + 1};
zoom[z_] :=
 Graphics[{PointSize[1/300 + 1/(10 + z)], Point[points]},
  ImageSize -> {300, 300},
  PlotRange -> {{r[[1]], r[[1]] + z}, {r[[1]], r[[1]] + z}}];
Manipulate[zoom[z], {z, 2, r[[2]] - r[[1]]}]