A009234 - OEIS

%I #13 Feb 09 2014 04:05:20

%S 1,1,1,5,17,77,457,2641,19777,149529,1305489,12183613,122670033,

%T 1342074021,15462740633,192192501897,2502900454401,34713417890609,

%U 504155298072609,7713202738776565,123438576028985873

%N Expansion of e.g.f.: exp(sinh(x)/cos(x)).

%H Vincenzo Librandi, <a href="/A009234/b009234.txt">Table of n, a(n) for n = 0..200</a>

%t With[{nn=20},CoefficientList[Series[Exp[Sinh[x]/Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 07 2013 *)

%K nonn,easy

%O 0,4

%A _R. H. Hardin_

%E Extended and signs tested by _Olivier Gérard_, Mar 15 1997

%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Dec 07 2013