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 A009061 #23 Feb 16 2025 08:32:32
%S A009061 1,0,-1,-6,-27,-100,-237,742,18025,194904,1689671,12483570,72272013,
%T A009061 155614004,-4305757029,-101460169442,-1561477983407,-20064006763728,
%U A009061 -223375429298929,-2048612121431958,-11401251676320843,95849085744834380
%N A009061 Expansion of e.g.f. cos(sinh(x)*exp(x)).
%H A009061 G. C. Greubel, <a href="/A009061/b009061.txt">Table of n, a(n) for n = 0..250</a>
%H A009061 Eric Weisstein's MathWorld, <a href="https://mathworld.wolfram.com/BellPolynomial.html">Bell Polynomial</a>.
%F A009061 a(n) = 2^n*Re(B_n(i/2)), where B_n(x) is n-th Bell polynomial, i=sqrt(-1). _Vladimir Reshetnikov_, Oct 22 2015
%p A009061 seq(coeff(series(factorial(n)*cos(sinh(x)*exp(x)), x,n+1),x,n),n=0..25); # _Muniru A Asiru_, Jul 24 2018
%t A009061 Table[SeriesCoefficient[Cos[Sinh[x] Exp[x]], {x, 0, n}] n!, {n, 0, 20}]
%t A009061 Table[2^n Re[BellB[n, I/2]], {n, 0, 20}] (* _Vladimir Reshetnikov_, Oct 22 2015 *)
%o A009061 (PARI) x='x+O('x^30); Vec(serlaplace(cos(sinh(x)*exp(x)))) \\ _G. C. Greubel_, Jul 23 2018
%o A009061 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Sinh(x)*Exp(x)))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Jul 23 2018
%Y A009061 Cf. A009496, A121868.
%K A009061 sign,easy
%O A009061 0,4
%A A009061 _R. H. Hardin_
%E A009061 Extended with signs by _Olivier Gérard_, Mar 15 1997