This works perfectly! Thank you!
ListPlot[Table[ With[{c = 1., \[Phi]0 = 137.508 Degree}, c Sqrt[n] {Cos[n \[Phi]0], Sin[n \[Phi]0]}], {n, 1, 80}], PlotRange -> All, AspectRatio -> 1, Axes -> False]
