Complex Circle Spiral
It occurred to me this morning that this would exist:
In[]:=
comp=
8
-0.0737
…
+0.612
…

;​​mult=
8
0.765
…
;Graphics[{Cyan,EdgeForm[Black],Table[Disk[ReIm[comp^k],multNorm[ReIm[comp^k]]],{k,-2,11}]},PlotRange->2/3]
Out[]=
I thought the generating root would be something familiar, but I haven’t seen it before.
In[]:=
Factor[1+8x+24
2
x
+40
3
x
+62
4
x
+40
5
x
+24
6
x
+8
7
x
+
8
x
]
Out[]=
1+8x+24
2
x
+40
3
x
+62
4
x
+40
5
x
+24
6
x
+8
7
x
+
8
x