OFFSET
0,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..9999
MATHEMATICA
r = 1 + 2^(1/2);
FromContinuedFraction[{1, r, {1, r}}]
FullSimplify[%]
ContinuedFraction[%, 100] (* A190180 *)
RealDigits[N[%%, 120]] (* A190179 *)
N[%%%, 40]
ContinuedFraction[(1 + Sqrt[-3 + 4*Sqrt[2]])/2, 100] (* G. C. Greubel, Dec 28 2017 *)
PROG
(PARI) contfrac((1+sqrt(-3+4*sqrt(2)))/2) \\ G. C. Greubel, Dec 28 2017
(Magma) ContinuedFraction((1+Sqrt(-3+4*Sqrt(2)))/2); // G. C. Greubel, Dec 28 2017
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Clark Kimberling, May 05 2011
EXTENSIONS
Offset set to 0 by Andrew Howroyd, Nov 25 2025
STATUS
approved
