A009788 - OEIS

%I #12 Jun 22 2015 22:38:48

%S 0,1,-3,6,12,-325,3275,-21238,2128,2873229,-59980543,767451894,

%T -4032383300,-119489497257,4880007568319,-104393287284518,

%U 1240478290057792,10284007879438201,-1108679036024621403,37101253954089817798

%N Expansion of e.g.f.: tanh(log(1+x)/exp(x)).

%t With[{nn=20},CoefficientList[Series[Tanh[Log[1+x]/Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 27 2014 *)

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Definition clarified by and prior Mathematica program replaced by _Harvey P. Dale_, Sep 27 2014