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 A009193 #15 Jul 28 2018 16:43:13
%S A009193 1,1,0,3,6,-5,135,-154,1260,6189,-33285,470294,-2056758,14299935,
%T A009193 -3614611,-379101878,10041282472,-121491285111,1656259499511,
%U A009193 -21619048472474,338632378045750,-5874571029856693,115201962050532137
%N A009193 Expansion of e.g.f.: exp(log(1+x)*cosh(x)).
%F A009193 E.g.f.: (1+x)^cosh(x). - _Vaclav Kotesovec_, Jul 28 2018
%F A009193 a(n) ~ (-1)^n * n! / (Gamma(-cosh(1)) * n^(1 + cosh(1))). - _Vaclav Kotesovec_, Jul 28 2018
%t A009193 With[{nn=30},CoefficientList[Series[Exp[Log[1+x]*Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 21 2017 *)
%K A009193 sign,easy
%O A009193 0,4
%A A009193 _R. H. Hardin_
%E A009193 Extended with signs by _Olivier Gérard_, Mar 15 1997
%E A009193 Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jun 21 2017