I'm using Mathematica to create this graphic and would like to be able to add points around a few more of the concentric circles without writing 2^n lines of code for each one. As you can see below, I created this by setting each Graphics and Graphics to a variable (like a4 or g3) then by calling Show on each. Is there a way to use While or For to do this, or some other solution where the points can be created with fewer lines of code. Thank you!

How do I make the next circle have points at (Log[2,7] Cos Pi/128, Log[2,7] Sin Pi/128),

then (Log[2,7] Cos 3 Pi/128, Log[2,7] Sin 3 Pi/128), etc.,

all the way to (Log[2,7] Cos 255 Pi/128, Log[2,7] Sin 255 Pi/128)?

I've included portions of my code below.

g0 = Graphics[Circle[{0, 0}, Log[2, 2]]]

g1 = Graphics[Circle[{0, 0}, Log[2, 3]]]

g2 = Graphics[Circle[{0, 0}, Log[2, 4]]]

...

a8 = Graphics[ Point[{Log[2, 3] Cos[Pi/8], Log[2, 3] Sin[Pi/8]}, VertexColors -> {Blue}]]

a9 = Graphics[ Point[{Log[2, 3] Cos[3 Pi/8], Log[2, 3] Sin[3 Pi/8]}, VertexColors -> {Blue}]]

a10 = Graphics[ Point[{Log[2, 3] Cos[5 Pi/8], Log[2, 3] Sin[5 Pi/8]}, VertexColors -> {Blue}]]

a11 = Graphics[ Point[{Log[2, 3] Cos[7 Pi/8], Log[2, 3] Sin[7 Pi/8]}, VertexColors -> {Blue}]]

...

a127 = Graphics[ Point[{Log[2, 6] Cos[127 Pi/64], Log[2, 6] Sin[(127 Pi/64]}, VertexColors -> {Blue}]]

Show[g0, g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12, g13, g14, \g15, g16, g17, g18, g19, g20, g21, g22, g23, g24, g25, g26, g27, g28, \g29,...]