Esto es más de un comentario extendido de una respuesta, pero supongo que como el OP está interesado en el aspecto computacional ("...escribí un pequeño script para calcular..."), este puede ser de algún interés. La siguiente es una adaptación de Ole Østerby del manuscrito inédito.
Como ya se ha señalado, el OP límite es equivalente a decir que
$$\lim_{h\to 0}\frac{\sin\,\pi h}{h}=\pi$$
donde identificamos $h$ con $2^{n}$. Que es, para utilizar la notación de David de la respuesta (y teniendo $r=1$):
$$b_n=2^n \sin\left(\frac{\pi}{2^n}\right)$$
Si ampliamos $\dfrac{\sin\,\pi h}{h}$ como una serie, así:
$$\frac{\sin\,\pi h}{h}=\pi\frac{\pi^3 h^2}{6}+\frac{\pi^5 h^4}{120}+\cdots$$
vemos que sólo los poderes de $h$ ocurrir en la expansión (como era de esperar, ya que la función en cuestión es aún).
Si dividimos $h$ (lo que es equivalente, un aumento de $n$), tenemos un poco más exacta aproximación de $\pi$. El resultado de todo esto es que uno puede tomar una adecuada combinación lineal de $\dfrac{\sin\,\pi h}{h}$ y $\dfrac{\sin(\pi h/2)}{h/2}$ para producir una mejor aproximación a $\pi$:
$$\frac13\left(\frac{4\sin(\pi h/2)}{h/2}-\frac{\sin\,\pi h}{h}\right)=\pi\frac{\pi^5 h^4}{480}+\frac{\pi^7 h^6}{16128}+\cdots$$
Este juego puede ser jugado varias veces, tomando sucesivas combinaciones lineales de los valores correspondientes a $h/2$, $h/4$, $h/8$... El método es conocido como la extrapolación de Richardson.
(Voy a notar que ya he traído hasta la extrapolación de Richardson en un número de mis respuestas anteriores, como este o este.)
Más explícitamente, teniendo $T_n^{(0)}=b_n$, y la realización de la recursividad
$$T_j^{(n)}=T_{j}^{(n-1)}+\frac{T_{j}^{(n-1)}-T_{j-1}^{(n-1)}}{2^n-1}$$
la "diagonal" de la secuencia de $T_n^{(n)}$ es una sucesión que converge más rápido a $\pi$ de la secuencia de $b_n$. Christiaan Huygens utilizado este método (camino incluso antes de Richardson considera que su método de extrapolación) para refinar las estimaciones de Arquímedes de circunscribir y la inscripción de polígonos.
Diversos Mathematica código:
Table[2^(n - 1)*Sqrt[2 - Nest[Sqrt[2 + #1] & , 0, n - 2]] ==
FunctionExpand[2^n*Sin[Pi/2^n]], {n, 2, 15}]
{True, True, True, True, True, True, True, True, True, True,
True, True, True, True}
De esta forma se comprueba la equivalencia de las iteradas de la raíz cuadrada, seno y de expresión.
Aquí es una implementación de la aplicación de la extrapolación de Richardson para el cálculo de $\pi$:
huygensPi[n_Integer, prec_: MachinePrecision] :=
Module[{f = 1, m, res, s, ta},
res = {ta[1] = s = N[2, prec]};
Do[
If[k > 1, s = s/(2 + Sqrt[4 - s])];
f *= 2; ta[k + 1] = f Sqrt[s];
m = 1;
Do[m *= 2;
ta[j] = ta[j + 1] + (ta[j + 1] - ta[j])/(m - 1);, {j, k, 1, -1}];
res = {res, ta[1]};, {k, n - 1}];
Flatten[res]]
Tenga en cuenta que he utilizado una estabilizado versión de la recursividad para la generación de los $b_n$ (f Sqrt[s]
en el código) para minimizar los errores de sustracción de cancelación.
Aquí se muestra un ejemplo de ejecución, donde puedo generar 10 aproximaciones sucesivas a 25 dígitos significativos:
huygensPi[10, 25] - Pi
{2.000000000000000000000000, 3.656854249492380195206755,
3.173725640962868268333725, 3.13944246625722809089242,
3.14157581875151427853903, 3.14159291451874033422144,
3.14159265388327967181647, 3.14159265358866759077617,
3.14159265358979303435864, 3.14159265358979323865872}
donde $10$-th approximant es bueno a 19 dígitos. Por comparación, $b_{10}=2^{10}\sin\left(\dfrac{\pi}{2^{10}}\right)= 3.1415877\dots$ es buena solo para cinco dígitos.