OFFSET
1,2
COMMENTS
coth(x) = (e^x + e^(-x))/(e^x - e^(-x)).
Because the continued fraction for coth(1) is all positive odd numbers in sequence, the second Mathematica program below also generates the sequence. - Harvey P. Dale, Oct 15 2011
By the Lindemann-Weierstrass theorem, this constant is transcendental. - Charles R Greathouse IV, May 14 2019
REFERENCES
Samuel M. Selby, editor, CRC Basic Mathematical Tables, CRC Press, 1970, p. 218.
LINKS
Ivan Panchenko, Table of n, a(n) for n = 1..1000
Hideyuki Ohtsuka, Problem 11853, The American Mathematical Monthly, Vol. 122, No. 7 (2015), p. 700; A Hyperbolic Sine Series, Solutions to Problem 11853 by Tewodros Amdeberhan and Rituraj Nandan, ibid., Vol. 124, No. 5 (2017), p. 469.
Allen Stenger, Experimental math for Math Monthly problems, The American Mathematical Monthly, Vol. 124, No. 2 (2017), pp. 116-131; alternative link.
Eric Weisstein's World of Mathematics, Hyperbolic Cotangent.
Eric Weisstein's World of Mathematics, Hyperbolic Functions.
FORMULA
Equals 1 + Sum_{n>=1} (2^(2*n)*B(2*n))/(2*n)! = 1 + Sum_{n>=1} (-1)^(n+1)*2*(A046988(n+1) / A002432(n+1)). - Terry D. Grant, May 30 2017
Equals 1 + BesselI(3/2, 1)/BesselI(1/2, 1). - Terry D. Grant, Jun 18 2018
Equals 1 + Sum_{k>=1} csch(2^k) (Ohtsuka, 2015; Stenger, 2017). - Amiram Eldar, Oct 04 2021
EXAMPLE
1.31303528549933130363616124693...
MATHEMATICA
RealDigits[Coth[1], 10, 120][[1]] (* or *) RealDigits[ FromContinuedFraction[ Range[1, 1001, 2]], 10, 120][[1]] (* Harvey P. Dale, Oct 15 2011 *) (* see Comments, above, for the second program *)
PROG
(PARI) 1/tanh(1)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Rick L. Shepherd, Aug 07 2002
STATUS
approved