¿Cómo dibujar círculos concéntricos usando Mathematica? Cuanto más simple sea la sintaxis, mejor

Código:

n?=?0.3;

ParametricPlot[{{v?Cos[u],?v?Sin[u]},? {n?Cos[u]?+?1,?

n?Sin[u]?+?1},? {(3?n)/4?Cos[u]?+?1 ,? (3?n)/4?Sin[u]?+?

1},? {(2?n)/4?Cos[u]?+?1,? n)/4?Sin[u]?+?1},? {(1?n)/4?Cos[u]?+?

1,? Sin[u]?+?1}},{u,?0,?2?Pi},{v,?1,?3},?AspectRatio?->?1,?PlotRange?->?Todos]

Parámetros específicos: n representa el radio del círculo pequeño y el rango de v? representa el número de círculos concéntricos.

Puedes configurar los parámetros según tus necesidades.