OFFSET
0,1
LINKS
Henryk Fuks, Adam Adamandy Kochanski's approximations of pi: reconstruction of the algorithm, arXiv preprint arXiv:1111.1739, 2011. Math. Intelligencer, Vol. 34 (No. 4), 2012, pp. 40-45.
FORMULA
Definitions 1 and 2 of Fuks (2011) give formulas.
PROG
(PARI)
galpha(alpha, R, S) = {floor((alpha - floor(alpha))/(R - alpha*S)); }
fuks() = { n = 29; default(realprecision, 200); alpha = sqrt(2); R = 3; S = 2; x = galpha(alpha, R, S); print1(x, ", "); for (i=1, n, R = R*(x+1) + floor(alpha); S = S*(x+1) + 1; x = galpha(alpha, R, S); print1(x, ", "); ); }
\\ Michel Marcus, Feb 07 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 23 2013
EXTENSIONS
More terms from Michel Marcus, Feb 07 2013
STATUS
approved