OFFSET
1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
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
STATUS
approved