vector(r,theta,z)=vector(0.1*k,t+2*pi*k*n,0),'radius'=0.04,in(k,set(0*ldots*16))

k<5*prime(r)<k+0.9,sin([prime(theta)-(2*pi*n*[k+1])])>0,in(k,set(0*ldots*16))

from http://intothecontinuum.tumblr.com/post/118477958368/maihudson-mathematica-code-an-t

Graph of the formula

This file was created by Graphing Calculator 4.0.10.
Visit Pacific Tech to download the helper application to view and edit these equations live.