OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..9999
EXAMPLE
sqrt(2+sqrt(3)) = [1,1,13,1,2,15,10,1,18,1,1,21,2,1,1,2,4,...].
MAPLE
with(numtheory): cfrac(sqrt(2+sqrt(3)), 120, 'quotients'); # Muniru A Asiru, Sep 30 2018
MATHEMATICA
r = 2^(1/2); t = (r + (4 + r^2)^(1/2))/2; FullSimplify[t]
N[t, 130]
RealDigits[N[t, 130]][[1]]
ContinuedFraction[t, 120]
ContinuedFraction[Sqrt[2+Sqrt[3]], 120] (* Harvey P. Dale, Jul 19 2014 *)
PROG
(PARI) default(realprecision, 100); contfrac(sqrt(2 + sqrt(3))) \\ G. C. Greubel, Sep 29 2018
(Magma) SetDefaultRealField(RealField(100)); ContinuedFraction(Sqrt(2 + Sqrt(3))); // G. C. Greubel, Sep 29 2018
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Clark Kimberling, Apr 12 2011
EXTENSIONS
Name extended by Greg Dresden, Apr 13 2018
Offset changed by Andrew Howroyd, Aug 08 2024
STATUS
approved