# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a009088
Showing 1-1 of 1

%I A009088 #25 Jul 30 2018 00:39:09
%S A009088 1,-3,45,-1239,54873,-3577739,322495173,-38370542175,5817952885169,
%T A009088 -1093812528874387,249472828725529437,-67807763939709678951,
%U A009088 21642089202188444732425,-8010884242566625383028251
%N A009088 Expansion of e.g.f. x*cos(tanh(x)), odd powers only.
%H A009088 G. C. Greubel, <a href="/A009088/b009088.txt">Table of n, a(n) for n = 0..239</a>
%p A009088 seq(coeff(series(factorial(n)*x*cos(tanh(x)), x,n+1),x,n),n=1..30,2); # _Muniru A Asiru_, Jul 25 2018
%t A009088 With[{nn=30},Take[CoefficientList[Series[Cos[Tanh[x]]x,{x,0,nn}], x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 01 2011 *)
%o A009088 (PARI) x='x+O('x^60); v=Vec(serlaplace(x*cos(tanh(x)))); vector((#v-1)\2,n,v[2*n-1]) \\ _G. C. Greubel_, Jul 25 2018
%K A009088 sign
%O A009088 0,2
%A A009088 _R. H. Hardin_
%E A009088 Extended with signs by _Olivier Gérard_, Mar 15 1997

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE