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 A009837 #19 Feb 04 2022 09:53:24
%S A009837 1,56,46336,182844416,2205641015296,63603482126974976,
%T A009837 3748468097940723859456,404963012992964559934324736,
%U A009837 74035562436962891333631597346816,21543523644222111882868080329093021696,9505937948357641883573662624456235995365376
%N A009837 Expansion of tanh(x)tan(x)/2 in powers of x^(4*n+2).
%H A009837 G. C. Greubel, <a href="/A009837/b009837.txt">Table of n, a(n) for n = 0..120</a>
%F A009837 a(n) = [ x^(4*n+2) ] ( tanh(x)*tan(x)/2 ).
%F A009837 a(n) = A024342(n)/2.
%F A009837 a(n) ~ (4*n+2)! * 2^(4*n+4) * tanh(Pi/2) / Pi^(4*n+3). - _Vaclav Kotesovec_, Jan 24 2015
%t A009837 nn=20; Table[(CoefficientList[Series[(Tan[x]*Tanh[x])/2,{x,0,4*nn+2}],x] * Range[0,4*nn+2]!)[[n]],{n,3,4*nn+1,4}] (* _Vaclav Kotesovec_, Jan 24 2015 *)
%o A009837 (Magma)
%o A009837 m:=50; R<x>:=PowerSeriesRing(Rationals(), m);
%o A009837 b:= Coefficients(R!(Laplace( Tan(x)*Tanh(x)/2 )));
%o A009837 [b[4*n-3]: n in [1..Floor((m-2)/4)]]; // _G. C. Greubel_, Jan 31 2022
%o A009837 (Sage) [factorial(4*n+2)*( tan(x)*tanh(x)/2 ).series(x, 4*n+3).list()[4*n+2] for n in (0..20)] # _G. C. Greubel_, Jan 31 2022
%Y A009837 Cf. A024342.
%K A009837 nonn
%O A009837 0,2
%A A009837 _R. H. Hardin_
%E A009837 Extended and signs tested Mar 1997.