%I #17 Feb 09 2014 05:40:21
%S 0,1,-1,5,-12,29,-165,993,-7056,62649,-540225,5044445,-56372844,
%T 685980437,-8868937077,124034330553,-1855540686720,29570974192753,
%U -502444027531233,9041323571823925,-171561171727515820,3427632445624110605
%N Expansion of e.g.f. log(1+x)/cos(tanh(x)).
%H Vincenzo Librandi, <a href="/A009428/b009428.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=30},CoefficientList[Series[Log[1+x]/Cos[Tanh[x]],{x,0,nn}], x]Range[0,nn]!] (* _Harvey P. Dale_, Oct 06 2011 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Corrected Mathematica program, Harvey P. Dale, Oct 06 2011