OFFSET
1,1
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
Continued fraction (as explained at A188635): [r,r,r,r], where r = 1 + sqrt(2). The ordinary continued fraction (as given by Mathematica program shown below) is as follows: [2,1,3,2,5,76,5,2,3,1,3,1,2,1,1,7,1,10,38,10,...]
EXAMPLE
2.7755156578866803716262115031565793012577141550...
MATHEMATICA
r = 1 + 2^(1/2);
FromContinuedFraction[{r, r, r, r}]
FullSimplify[%]
N[%, 150]
RealDigits[%] (*A189960*)
ContinuedFraction[%%, 120]
RealDigits[(9+27Sqrt[2])/17, 10, 150][[1]] (* Harvey P. Dale, Dec 22 2019 *)
PROG
(PARI) (9+27*sqrt(2))/17 \\ G. C. Greubel, Jan 13 2018
(Magma) (9+27*Sqrt(2))/17 // G. C. Greubel, Jan 13 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, May 02 2011
STATUS
approved