OFFSET
0,1
COMMENTS
Continued fraction expansion leads to the ternary digital root of n.
LINKS
EXAMPLE
0.732050807568877293527446341505872366942805253810380628055806979451933...
MATHEMATICA
RealDigits[Sqrt[3]-1, 10, 120][[1]] (* Harvey P. Dale, Dec 16 2016 *)
PROG
(PARI) default(realprecision, 20080); x=10*(sqrt(3)-1); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b160390.txt", n, " ", d));
(Magma) SetDefaultRealField(RealField(100)); Sqrt(3) -1; // G. C. Greubel, Nov 20 2018
(Sage) numerical_approx(sqrt(3) -1, digits=100) # G. C. Greubel, Nov 20 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Harry J. Smith, May 31 2009
STATUS
approved