OFFSET
1,2
COMMENTS
1 followed by A190259.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
r=2^(1/2);
FromContinuedFraction[{1, r, {1, r}}]
FullSimplify[%]
ContinuedFraction[%, 100] (* A190261 *)
RealDigits[N[%%, 120]] (* A190260 *)
N[%%%, 40]
ContinuedFraction[(1+Sqrt[1+2Sqrt[2]])/2, 100] (* Harvey P. Dale, Jan 27 2013 *)
PROG
(PARI) contfrac((1+sqrt(1+2*sqrt(2)))/2) \\ G. C. Greubel, Dec 26 2017
(Magma) ContinuedFraction((1+Sqrt(1+2*Sqrt(2)))/2) // G. C. Greubel, Dec 26 2017
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved