login
A147711
Decimal expansion of coth(EulerGamma).
4
1, 9, 2, 0, 7, 1, 7, 4, 9, 6, 0, 5, 1, 1, 0, 2, 7, 3, 7, 9, 7, 3, 6, 4, 8, 6, 6, 3, 4, 8, 3, 2, 1, 1, 2, 5, 5, 4, 7, 9, 1, 0, 6, 1, 9, 4, 0, 2, 4, 9, 7, 6, 1, 5, 5, 4, 4, 1, 2, 6, 4, 9, 1, 8, 9, 0, 1, 9, 9, 7, 8, 5, 5, 8, 7, 1, 2, 2, 5, 2, 1, 0, 5, 2, 1, 7, 0, 8, 1, 1, 9, 0, 9, 9, 6, 2, 1, 1, 5, 7
OFFSET
1,2
LINKS
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
Cf. A147708 (with cosh), A147709 (with sinh), A147710 (with tanh).
Sequence in context: A019876 A155696 A098875 * A096388 A153463 A240985
KEYWORD
cons,nonn
AUTHOR
Artur Jasinski, Nov 11 2008
STATUS
approved