OFFSET
0,2
FORMULA
a(n)=(sum(m=0..n-1/2, binomial(2*n,2*m+1)*(sum(j=2*m+1..2*n-2*m-1, binomial(j-1,2*m)*j!*(-1)^(n+m+j)*2^(2*n-2*m-j-1)*stirling2(2*n-2*m-1,j))))). - Vladimir Kruchinin, Jun 23 2011
MATHEMATICA
terms = 15;
egf = Sin[x*Tan[x]] + O[x]^(2 terms + 1) ;
Partition[CoefficientList[egf, x] * Range[0, 2 terms]!, 2][[All, 1]] (* Jean-François Alcover, Sep 24 2019 *)
PROG
(Maxima)
a(n):=(sum(binomial(2*n, 2*m+1)*(sum(binomial(j-1, 2*m)*j!*(-1)^(n+m+j)*2^(2*n-2*m-j-1)*stirling2(2*n-2*m-1, j), j, 2*m+1, 2*n-2*m-1)), m, 0, n-1/2)); /* Vladimir Kruchinin, Jun 23 2011 */
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved