OFFSET
0,1
COMMENTS
By the Lindemann-Weierstrass theorem, this constant is transcendental. - Charles R Greathouse IV, May 13 2019
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..20000
Wikipedia, Lindemann-Weierstrass theorem
FORMULA
From Peter Bala, Nov 17 2019: (Start)
Related simple continued fraction expansions:
tan(1/2) = [0; 1, 1, 4, 1, 8, 1, 12, 1, 16, 1, 20, 1, ...]. See A019425.
2*tan(1/2) = [1, 10, 1, 3, 1, 26, 1, 7, 1, 42, 1, 11, 1, 58, 1, 15, 1, 74, 1, 19, 1, 90, ...]
(1/2)*tan(1/2) = [0; 3, 1, 1, 1, 18, 1, 5, 1, 34, 1, 9, 1, 50, 1, 13, 1, 66, 1, 17, 1, 82, ...].
tan(1/2)/(1 - tan(1/2)) = [1, 4, 1, 8, 1, 12, 1, 16, 1, 20, 1, 24, ...]
2*tan(1/2)/(1 - tan(1/2)) = [2, 2, 2, 4, 2, 6, 2, 8, 2, 10, 2, 12, ...]
4*tan(1/2)/(1 - tan(1/2)) = [4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 6, 4, 7, ...]. (End)
EXAMPLE
0.546302489843790513255179465780285383297551720179791246164091385932907...
MATHEMATICA
RealDigits[N[Tan[1/2], 6! ]][[1]] (* Vladimir Joseph Stephan Orlovsky, Jun 13 2009 *)
PROG
(PARI) default(realprecision, 20080); x=10*tan(1/2); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b161011.txt", n, " ", d));
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Harry J. Smith, Jun 13 2009
STATUS
approved