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 A009124 #20 Sep 08 2022 08:44:37
%S A009124 1,0,1,-3,16,-90,616,-4893,44416,-453540,5145856,-64222983,874402816,
%T A009124 -12897183390,204862698496,-3486535686273,63292764553216,
%U A009124 -1220795601029640,24931903045697536,-537463528325234763
%N A009124 Expansion of e.g.f. cosh(log(1+sinh(x))).
%H A009124 G. C. Greubel, <a href="/A009124/b009124.txt">Table of n, a(n) for n = 0..250</a>
%F A009124 a(2*n) = A006154(2*n)/2, n>0. - _Ralf Stephan_, Apr 29 2004
%F A009124 a(n) ~ n! * (-1)^n / (2 * sqrt(2) * (log(1+sqrt(2)))^(n+1)). - _Vaclav Kotesovec_, Jan 22 2015
%t A009124 CoefficientList[Series[(1 + (1 + Sinh[x])^2)/(2*(1 + Sinh[x])), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 22 2015 *)
%o A009124 (PARI) x='x+O('x^30); Vec(serlaplace(cosh(log(1+sinh(x))))) \\ _G. C. Greubel_, Jul 28 2018
%o A009124 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cosh(Log(1+Sinh(x))))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Jul 28 2018
%K A009124 sign,easy
%O A009124 0,4
%A A009124 _R. H. Hardin_
%E A009124 Extended with signs by _Olivier Gérard_, Mar 15 1997