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 A291483 #6 Mar 27 2019 10:01:06
%S A291483 0,1,2,2,0,4,40,-64,-1344,3984,85408,-356896,-8462080,45908160,
%T A291483 1209040768,-8080805888,-235449260032,1871655631104,59955521585664,
%U A291483 -552758145525248,-19339870285225984,202927333558572032,7707208199780517888,-90698934927786770432,-3718489569130941169664,48507735629457304555520
%N A291483 Expansion of e.g.f. arcsinh(x)*exp(x).
%F A291483 E.g.f.: log(x + sqrt(1 + x^2))*exp(x).
%e A291483 E.g.f.: A(x) = x/1! + 2*x^2/2! + 2*x^3/3! + 4*x^5/5! + 40*x^6/6! - 64*x^7/7! - 1344*x^8/8! + ...
%p A291483 a:=series(arcsinh(x)*exp(x),x=0,26): seq(n!*coeff(a,x,n),n=0..25); # _Paolo P. Lava_, Mar 27 2019
%t A291483 nmax = 25; Range[0, nmax]! CoefficientList[Series[ArcSinh[x] Exp[x], {x, 0, nmax}], x]
%t A291483 nmax = 25; Range[0, nmax]! CoefficientList[Series[Log[x + Sqrt[1 + x^2]] Exp[x], {x, 0, nmax}], x]
%t A291483 nmax = 25; Range[0, nmax]! CoefficientList[Series[-Sum[((-1)^k (-1 + x + Sqrt[1 + x^2])^k)/k, {k, 1, Infinity}] Exp[x], {x, 0, nmax}], x]
%Y A291483 Cf. A001818, A009545, A012584, A131577, A291482.
%K A291483 sign
%O A291483 0,3
%A A291483 _Ilya Gutkovskiy_, Aug 24 2017