|
%I #14 Jun 22 2015 22:36:46
%S 0,1,0,1,-12,76,-480,4264,-45248,514180,-6418080,89205348,-1356339600,
%T 22268993280,-393425899776,7452539807088,-150601672807680,
%U 3232773233449104,-73469416841374464,1762493272462111632
%N Expansion of e.g.f.: tanh(x)/cos(log(1+x)).
%H Harvey P. Dale, <a href="/A009839/b009839.txt">Table of n, a(n) for n = 0..150</a>
%F a(n) ~ n! * (-1)^(n+1) * tanh(1-exp(-Pi/2)) / ((exp(Pi/2)-1) * (1-exp(-Pi/2))^n). - _Vaclav Kotesovec_, Jan 24 2015
%t With[{nn=20},CoefficientList[Series[Tanh[x]/Cos[Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 07 2013 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Aug 07 2013
|
