OFFSET
1,2
LINKS
Kelvin Voskuijl, Table of n, a(n) for n = 1..10000
Herman P. Robinson, The CSR Function, Popular Computing (Calabasas, CA), Vol. 4 (No. 35, Feb 1976), pages PC35-3 to PC35-4. Annotated and scanned copy.
EXAMPLE
1.94265542276398732822141329141266723768807363...
MATHEMATICA
k = 64; r = 65; While[k > 0, r = Sqrt[k^2 + r]; k-- ]; RealDigits[r, 10, 111][[1]] (* Robert G. Wilson v, Nov 04 2004 *)
PROG
(PARI) \\ We need about b/log(b) steps for relative precision epsilon = 2^-b.
my(b=bitprecision(1.), t); forstep(n=b\log(b)+9, 1, -1, t=sqrt(t+n^2)); t \\ Charles R Greathouse IV, Aug 19 2025
CROSSREFS
KEYWORD
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 03 2004
STATUS
approved
