I'm a graduate student in number theory.
The profile image, grid of 10 by 10 squares of random colors and rotations, was generated by Mathematica.
Grid[Table[
Graphics[{RGBColor[RandomReal[{0.1, 0.7}, 3]],
Rotate[Rectangle[],
RandomVariate[
NormalDistribution[0, ((i - 7.5)^2 + (j - 7.5)^2)/50]]]},
ImageSize -> 30], {i, 0, 9}, {j, 0, 9}], Spacings -> {0, 0}]
(* Export["/directory/you/like/img.png", %] exports this image.)
Link: