OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..100
FORMULA
a(n) ~ (-1)^(n+1) * sinh(sinh(Pi/2)) * 2^(2*n+1) * (2*n)! / Pi^(2*n+1). - Vaclav Kotesovec, Apr 20 2014
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tanh[x]Sin[Sin[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Oct 20 2013 *)
PROG
(PARI) A024282=n->{my(t=x+O(x^(2*n+!n))); polcoeff(tanh(t)*sin(sin(t)), n*2, x)/2*(2*n)!} \\ M. F. Hasler, Feb 09 2014
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Oct 20 2013
Clarified definition, Joerg Arndt, Feb 09 2014
STATUS
approved