5000 points: one for each of you!

Try to pick one and follow it for as long as you can.

Mathematica code:

G[p_, q_, a_, b_, c_, t_] :=
 Graphics[
  Table[
   {Opacity[.7],
    Disk[
     {.71*Cos[a (.04*t + n)*2 Pi/1000 + p], 
      Cos[b (.04*t + n)*2 Pi/1000 + q]}, 
      .002*Cos[c (.04*t + n)*2 Pi/1000] + .005]},
   {n, 1, 1000}],
  PlotRange -> {{-.715, .715}, {-1.005, 1.005}}, ImageSize -> 500]

Manipulate[ 
   Show[
    G[0, .2, 29, 13, 11, t],
    G[0, .2, 19, 31, 9, t],
    G[.3, .29, 3, 23, 17, t],
    G[0, .3, 43, 7, 3, t],
    G[.1, .13, 31, 19, 2, t]],
{t,1,25,1}]