|
%I #19 Jun 22 2015 22:39:41
%S 0,1,-1,3,0,-65,525,-3619,15512,51549,-2308365,37073399,-417301896,
%T 2878576779,13832070161,-1001340728543,23330589314640,
%U -373263648419975,3611687964249159,21971926549737643,-2211581913138852400
%N Expansion of tanh(log(1+x)*cosh(x)).
%H Vincenzo Librandi, <a href="/A009784/b009784.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},CoefficientList[Series[Tanh[Log[1+x]Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 10 2011 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
