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 A009496 #18 Feb 16 2025 08:32:32
%S A009496 0,1,2,3,-4,-83,-658,-4193,-22440,-83975,120122,7476315,112365332,
%T A009496 1294231525,12752263526,105731717431,610305421872,-1116308339087,
%U A009496 -115998206237710,-2570453790514893,-43180432963618900,-622814297059769699,-7810135072307898658
%N A009496 Expansion of e.g.f. sin(sinh(x)*exp(x)).
%H A009496 Eric Weisstein's MathWorld, <a href="https://mathworld.wolfram.com/BellPolynomial.html">Bell Polynomial</a>
%F A009496 a(n) = 2^n*Im(B_n(i/2)), where B_n(x) is n-th Bell polynomial, i=sqrt(-1). - _Vladimir Reshetnikov_, Oct 22 2015
%t A009496 Table[SeriesCoefficient[Sin[Sinh[x] Exp[x]], {x, 0, n}] n!, {n, 0, 20}]
%t A009496 Table[2^n Im[BellB[n, I/2]], {n, 0, 20}] (* _Vladimir Reshetnikov_, Oct 22 2015 *)
%Y A009496 Cf. A009061, A121868.
%K A009496 sign,easy
%O A009496 0,3
%A A009496 _R. H. Hardin_
%E A009496 Extended with signs by _Olivier Gérard_, Mar 15 1997