login
Expansion of e.g.f.: tanh(x)*sin(tan(x))/2 (even part).
2

%I #24 Sep 17 2022 13:39:32

%S 0,1,-2,19,-1572,-24763,-5174758,-230357353,-45947071688,

%T -3138700558071,-787255563055690,-40961532387015781,

%U -13644908739614623724,5015831039379054245197,1910018990150165668013778,1856616739480127236630886175,892801482776535024911075390576

%N Expansion of e.g.f.: tanh(x)*sin(tan(x))/2 (even part).

%H Stefano Spezia, <a href="/A024229/b024229.txt">Table of n, a(n) for n = 0..200</a>

%t nmax=200; expan=Series[Tanh[x]*Sin[Tan[x]]/2, {x, 0, 2*nmax}]; Join[{0}, Table[(2n)! Coefficient[expan, x^(2n)], {n, nmax}]] (* _Stefano Spezia_, Sep 17 2022 *)

%o (PARI) my(x='x+O('x^50), v=Vec(serlaplace(tanh(x)*sin(tan(x))/2))); concat(0, vector(#v\2, k, v[2*k-1])) \\ _Michel Marcus_, Sep 17 2022

%Y Cf. A009834.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs, Mar 1997