|
%I #15 Jun 22 2015 22:45:29
%S 0,1,-1,1,-12,55,-255,2679,-23632,201245,-2409525,30433181,-383307804,
%T 5609915779,-89478694851,1470425213763,-26173709472960,
%U 501554172182201,-10043883092049993,212501921779526329,-4764376768067195020
%N Expansion of tan(log(1+x)/cosh(x)).
%H Vincenzo Librandi, <a href="/A009653/b009653.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=20},CoefficientList[Series[Tan[Log[1+x]/Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 28 2013 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, May 28 2013
|
