OFFSET
0,4
FORMULA
a(n) = ((-1)^n*(n!*h(n)+(n-2)!)/4, n>1, where h(n) = Sum_{k=1..n} 1/k. [Gary Detlefs, Jul 31 2010]
Conjecture: a(n) = Sum_{k=0..n/2} Stirling1(n,2*k)*k. - Benedict W. J. Irwin, Oct 14 2016
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sinh[Log[1+x]]*Log[1+x]/2, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 16 2016 *)
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs, Mar 1997
Prior Mathematica program replaced by Harvey P. Dale, Jan 16 2016
STATUS
approved