OFFSET
1,1
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
r = 1 + 2^(1/2));
FromContinuedFraction[{r, 1, {r, 1}}]
FullSimplify[%]
ContinuedFraction[%, 100] (* A190178 *)
RealDigits[N[%%, 120]] (* A190177 *)
N[%%%, 40]
ContinuedFraction[(1 + Sqrt[2] + Sqrt[7 + 6*Sqrt[2]])/2, 100] (* G. C. Greubel, Dec 28 2017 *)
PROG
(PARI) contfrac((1+sqrt(2)+sqrt(7+6*sqrt(2)))/2) \\ G. C. Greubel, Dec 28 2017
(Magma) ContinuedFraction((1+Sqrt(2)+Sqrt(7+6*Sqrt(2)))/2); // G. C. Greubel, Dec 28 2017
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Clark Kimberling, May 05 2011
STATUS
approved