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