OFFSET
0,2
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..100
FORMULA
a(n) = (-1)^(n-1)*b(2*n-1), b(n) = sum(k=1..n,(1-(-1)^k)/k!*((-1)^(n-k)+1)* sum(j=k..n, binomial(j-1,k-1)*j!*2^(n-j-2)*(-1)^((n+k)/2+j)* Stirling2(n,j))). - Vladimir Kruchinin, Apr 21 2011
MATHEMATICA
Sin[ Tanh[ x ] ] (* Odd Part *)
With[{nn = 60}, Take[CoefficientList[Series[Sin[Tanh[x]], {x, 0, nn}], x] Range[0, nn - 1]!, {2, -1, 2}]] (* Vincenzo Librandi, Apr 11 2014 *)
PROG
(Maxima)
a(n):=(-1)^(n-1)*b(2*n-1);
b(n):=sum((1-(-1)^k)/k!*((-1)^(n-k)+1)*sum(binomial(j-1, k-1)*j!*2^(n-j-2)*(-1)^((n+k)/2+j)*stirling2(n, j), j, k, n), k, 1, n); /* Vladimir Kruchinin, Apr 21 2011 */
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Name edited by Michel Marcus, Jan 28 2018
STATUS
approved