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 A147710 #21 Sep 08 2022 08:45:38 %S A147710 5,2,0,6,3,8,7,7,2,7,7,9,4,1,6,5,5,8,8,2,9,3,9,4,5,9,1,6,6,9,0,2,8,1, %T A147710 3,4,2,8,7,6,7,3,1,9,3,8,1,0,4,8,7,6,0,8,2,6,5,4,0,3,6,9,0,1,6,8,5,5, %U A147710 7,2,6,4,6,1,3,1,8,9,4,4,6,1,0,4,2,5,7,5,2,9,2,0,7,1,7,1,2,7,6,4 %N A147710 Decimal expansion of tanh(EulerGamma). %H A147710 G. C. Greubel, <a href="/A147710/b147710.txt">Table of n, a(n) for n = 0..10000</a> %e A147710 0.52063877277941655882939459166902813428767319381048760826540... %t A147710 First[RealDigits[N[(Exp[EulerGamma] - Exp[ -EulerGamma])/(Exp[EulerGamma] + Exp[ -EulerGamma]), 100]]] %t A147710 RealDigits[Tanh[EulerGamma],10,120][[1]] (* _Harvey P. Dale_, Aug 10 2020 *) %o A147710 (PARI) default(realprecision, 100); tanh(Euler) \\ _G. C. Greubel_, Aug 29 2018 %o A147710 (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Tanh(EulerGamma(R)); // _G. C. Greubel_, Aug 29 2018 %Y A147710 Cf. A001620, A098907. %Y A147710 Cf. A147708 (with cosh), A147709 (with sinh), A147711 (with coth). %K A147710 cons,nonn %O A147710 0,1 %A A147710 _Artur Jasinski_, Nov 11 2008 %E A147710 Leading zero removed and offset adjusted by _R. J. Mathar_, Feb 05 2009