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 A009768 #20 Jun 03 2023 11:17:45
%S A009768 0,1,2,1,-20,-159,-594,2465,69560,665665,1593850,-67177791,
%T A009768 -1413216540,-12990964063,64480265318,4811655319393,90259507840240,
%U A009768 540272971703937,-20890652777843598,-798235260367432831,-12766815370452348580
%N A009768 Expansion of e.g.f. tanh(exp(x)*x).
%H A009768 Seiichi Manyama, <a href="/A009768/b009768.txt">Table of n, a(n) for n = 0..100</a>
%t A009768 With[{nn=20},CoefficientList[Series[Tanh[Exp[x]*x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 03 2023 *)
%o A009768 (PARI) my(x='x+O('x^30)); concat(0, Vec(serlaplace(tanh(exp(x)*x)))) \\ _Michel Marcus_, Oct 01 2021
%Y A009768 Cf. A009121, A009565, A009635, A216401.
%K A009768 sign,easy
%O A009768 0,3
%A A009768 _R. H. Hardin_
%E A009768 Extended with signs by _Olivier Gérard_, Mar 15 1997
%E A009768 Previous Mathematica program replaced by _Harvey P. Dale_, Jun 03 2023