Discover images with (at most) 36 distinct pixel colors (base 36 IntegerDigits in Mathematica) and (maybe) 128 x 128 pixels.
What can your computer handle? Tweak maxImage settings to increase the load.
In[]:=
Out[]=
​
columnS
7
rowS
7
colorS
black, blue, white
dontWaitForBiggerImages
numbeR
9200773
multiple01
0
multiple02
0
multiple03
0
multiple04
0
multiple05
0
multiple06
0
multiple07
0
multiple08
0
multiple09
0
multiple10
0
multiple11
0
multiple12
0
multiple13
0
multiple14
0
multiple15
0
multiple16
0
multiple17
0
multiple18
0
multiple19
0
multiple20
0
multiple21
0
multiple22
0
multiple23
0
multiple24
0
multiple36
0
multiple48
0
multiple64
0
multiple96
0
multiple128
0
multiple256
0
multiple512
0
multiple1024
0
multiple2048
0
multiple4096
0
multiple8192
0
{uArtsImage[7,7,{0{0.,0.,0.},1{0.,0.,1.},2{1.,
1.,1.}},9200773,pixelSizeGraphicsOptions],Total
image number Mod total images = ,9200773, Total image
number before Mod: ,9200773}