OFFSET
1,2
COMMENTS
Equivalent to the periodic continued fraction [1, x, 1, x,...], where x=sqrt(3). (See A188635.)
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
r=3^(1/2)
FromContinuedFraction[{1, r, {1, r}}]
FullSimplify[%]
ContinuedFraction[%, 100] (* A190263 *)
RealDigits[N[%%, 120]] (* A190262 *)
N[%%%, 40]
ContinuedFraction[(3 + Sqrt[9 + 12*Sqrt[3]])/6, 100] (* G. C. Greubel, Dec 26 2017 *)
PROG
(PARI) contfrac((3+sqrt(9+sqrt(432)))/6) \\ Charles R Greathouse IV, Jul 29 2011
(Magma) ContinuedFraction((3 + sqrt(9 + 12*sqrt(3)))/6); // G. C. Greubel, Dec 28 2017
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved