This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A147711 #18 Sep 08 2022 08:45:38 %S A147711 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, %T A147711 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, %U A147711 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 %N A147711 Decimal expansion of coth(EulerGamma). %H A147711 G. C. Greubel, <a href="/A147711/b147711.txt">Table of n, a(n) for n = 1..10000</a> %e A147711 1.920717496051102737973648663483211255479106194024976155441... %t A147711 First[RealDigits[N[(Exp[EulerGamma] + Exp[ -EulerGamma])/(Exp[EulerGamma] - Exp[ -EulerGamma]), 100]]] %o A147711 (PARI) default(realprecision, 100); (exp(Euler) + exp(-Euler))/(exp(Euler) - exp(-Euler)) \\ _G. C. Greubel_, Aug 29 2018 %o A147711 (PARI) 1/tanh(Euler) \\ _Charles R Greathouse IV_, May 14 2019 %o A147711 (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); (Exp(EulerGamma(R)) + Exp(-EulerGamma(R)))/(Exp(EulerGamma(R)) - Exp(-EulerGamma(R))); // _G. C. Greubel_, Aug 29 2018 %Y A147711 Cf. A001620, A098907. %Y A147711 Cf. A147708 (with cosh), A147709 (with sinh), A147710 (with tanh). %K A147711 cons,nonn %O A147711 1,2 %A A147711 _Artur Jasinski_, Nov 11 2008