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 A009623 #13 Jun 07 2022 15:02:33
%S A009623 0,1,2,4,12,36,118,456,1816,7888,37354,184064,974372,5444544,31769182,
%T A009623 195982208,1259350576,8441139456,59073098706,428299217920,
%U A009623 3226127944764,25165446157312,202778723085382,1689266143553536
%N A009623 Expansion of sinh(x).exp(sinh(x)).
%F A009623 a(n) = D^n(x*exp(x)) evaluated at x = 0, where D is the operator sqrt(1+x^2)*d/dx. Cf. A003724 and A009541. - Peter Bala, Dec 06 2011
%t A009623 With[{nn=30},CoefficientList[Series[Sinh[x]*Exp[Sinh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 07 2022 *)
%Y A009623 A003724, A009541.
%K A009623 nonn,easy
%O A009623 0,3
%A A009623 _R. H. Hardin_
%E A009623 Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
%E A009623 Previous Mathematica program replaced by _Harvey P. Dale_, Jun 07 2022