I’ve recently discovered the beauty, symmetry and mathematical richness of Apollonian gaskets.

Here’s a very short code (under 128 character’s length) that I’ve made with *Wolfram Mathematica* guided by the saying “*Beautiful math can often also be very simple*“.

`Graphics[{Purple,Circle[],Disk@@@Flatten[Table[1/(k^2+2) {{(-1)^r (-k^2+1), -2 (-1)^j k},1}, {k,0,9}, {j,0,1}, {r,0,1}],2]}]`

And here’s the twit published by @wolframtap (*Wolfram Tweet-a-Program).*

```
```@sfera314 (More info: http://t.co/HBUuaZOB3w) #wolframlang pic.twitter.com/1aP7Wceob4

— Tweet-a-Program (@wolframtap) April 6, 2015

Well, actually that is not a complete Apollonian gasket, but it can give the idea.

To produce a full gasket the code should be longer than that allowed by a twitter length, but I think that a basic one could be done in about 500 characters or less.

## Some links on Apollonian gaskets:

- https://en.wikipedia.org/wiki/Apollonian_gasket
- Apollonian_gasket A Tisket, a Tasket, an Apollonian Gasket (pdf), Dana Mackenzie, American Scientist, 2010
- The Circles of Descartes (Wolfram Demonstrations Project) – Contributed by:
**Ed Pegg Jr**(you’ll need to have the Wolfram CDF Player installed to play with this full simulation)