Prime Spiral Points
The content is a list of 200 planar points:
In[1]:=
points=Table[{Prime[n]Cos[n],Prime[n]Sin[n]},{n,200}];Length[points]
Out[1]=
200
Plotting them traces a loose spiral, since consecutive primes grow almost linearly while the angle winds around:
In[2]:=
ListPlot[points,AspectRatio->1]
Out[2]=
