OFFSET
0,3
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..100
FORMULA
a(n) = Sum_{i=0..(n-1)} ( ( Sum_{j=1..2*i+1} j!*2^(2*i+1-j-1)*(-1)^(i+j+1)*Stirling2(2*i+1,j) ) * Sum_{k=2*i+1..2*n-1} binomial(k-1,2*i)*k!*(-1)^(1+k)*2^(2*n-k-1)*Stirling2(2*n-1,k) )/(2*i+1)!. - Vladimir Kruchinin, Jun 10 2011
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[Tanh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Nov 05 2011 *)
PROG
(Maxima)
a(n):=sum(((sum(j!*2^(2*i+1-j-1)*(-1)^(i+j+1)*stirling2(2*i+1, j), j, 1, 2*i+1))*sum(binomial(k-1, 2*i)*k!*(-1)^(1+k)*2^(2*n-k-1)*stirling2(2*n-1, k), k, 2*i+1, 2*n-1))/(2*i+1)!, i, 0, (n-1)); /* Vladimir Kruchinin, Jun 10 2011 */
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved