complex – Using callout[] to create a plane


I want to create a plane that represents $15$ powers of complex number: $a$1$= (10/7)*(Cos(Pi/10) + i*Sin(Pi/10)) $. I also want to label the points with the text “a to power k” where $k$ will be the power I elevate $a$. The axes need to be labeled as $R$ for Real and $I$ for imaginary part of number. This is what I have

a1 = (10/7)*(Cos(Pi/10) + I*Sin(Pi/10));
valuesa1 = Table(a1^k, {k, 0, 12});
N(valuesa1)
ListPlot(Table(Callout(a1^k), {k, 0, 12}), AxesLabel -> {R, I})

My goal is to observe the points corresponding to the consecutive powers of the complex number. However, for some reason, not all the points are present on the graph.