OFFSET
0,3
COMMENTS
limit_{m -> infinity} [r_m] =1.7118691868...
MATHEMATICA
digits = 100; Clear[r]; r[1]=1; r[m_] := r[m] = FromContinuedFraction[Array[r, m-1]] // N[#, 2*digits]&; k=20; While[ContinuedFraction[r[k], digits] != ContinuedFraction[r[k-1], digits], k++; Print["k = ", k]]; ContinuedFraction[r[k], digits] (* Jean-François Alcover, Dec 11 2014 *)
CROSSREFS
KEYWORD
cofr,nice,nonn
AUTHOR
Leroy Quet, Apr 02 2000
EXTENSIONS
More terms from Jeppe Stig Nielsen, Apr 13 2000
STATUS
approved