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 A081443 #17 Sep 08 2022 08:45:09
%S A081443 1,1,2,4,12,36,128,456,1872,7888,37600,184064,990784,5444544,32333824,
%T A081443 195982208,1272660224,8441139456,59527313920,428299217920,
%U A081443 3252626013184,25165446157312,204354574172160,1689266143553536,14594815769038848
%N A081443 Binomial transform of expansion of cosh(sinh(x)).
%C A081443 Binomial transform of A003709 (unsigned, with periodic zeros added).
%H A081443 Vincenzo Librandi, <a href="/A081443/b081443.txt">Table of n, a(n) for n = 0..200</a>
%F A081443 E.g.f.: exp(x)*cosh(sinh(x)).
%p A081443 seq(coeff(series(exp(x)*cosh(sinh(x)), x, n+1)*factorial(n), x, n), n = 0 .. 30); # _G. C. Greubel_, Aug 14 2019
%t A081443 With[{nn=30},CoefficientList[Series[Exp[x]Cosh[Sinh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 14 2011 *)
%o A081443 (PARI) my(x='x+O('x^30)); Vec(serlaplace( exp(x)*cosh(sinh(x)) )) \\ _G. C. Greubel_, Aug 14 2019
%o A081443 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Exp(x)*Cosh(Sinh(x)) )); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Aug 14 2019
%o A081443 (Sage) [factorial(n)*( exp(x)*cosh(sinh(x)) ).series(x,n+1).list()[n] for n in (0..30)] # _G. C. Greubel_, Aug 14 2019
%Y A081443 Cf. A003709, A081444.
%K A081443 easy,nonn
%O A081443 0,3
%A A081443 _Paul Barry_, Mar 22 2003