OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
1.920717496051102737973648663483211255479106194024976155441...
MATHEMATICA
First[RealDigits[N[(Exp[EulerGamma] + Exp[ -EulerGamma])/(Exp[EulerGamma] - Exp[ -EulerGamma]), 100]]]
PROG
(PARI) default(realprecision, 100); (exp(Euler) + exp(-Euler))/(exp(Euler) - exp(-Euler)) \\ G. C. Greubel, Aug 29 2018
(PARI) 1/tanh(Euler) \\ Charles R Greathouse IV, May 14 2019
(Magma) SetDefaultRealField(RealField(100)); R:= RealField(); (Exp(EulerGamma(R)) + Exp(-EulerGamma(R)))/(Exp(EulerGamma(R)) - Exp(-EulerGamma(R))); // G. C. Greubel, Aug 29 2018
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Artur Jasinski, Nov 11 2008
STATUS
approved