OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..440
FORMULA
a(n)=n!*sum(k=1..n, (k!*(-1)^((3*n+k)/2)*sum(i=k..n,(2^i*stirling1(i,k)*binomial(n-1,i-1))/i!))/2^k),n>0, a(0)=1.
MATHEMATICA
With[{nn=30}, CoefficientList[Series[1/(1-ArcTan[x]), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 05 2013 *)
Flatten[{1, Table[n!*Sum[k!*(-1)^((3*n+k)/2)*Sum[2^i*StirlingS1[i, k]*Binomial[n-1, i-1]/i!, {i, k, n}]/2^k, {k, 1, n}], {n, 1, 25}]}] (* Vaclav Kotesovec, Sep 23 2016 *)
PROG
(Maxima)
a(n):=n!*sum((k!*(-1)^((3*n+k)/2)*sum((2^i*stirling1(i, k)*binomial(n-1, i-1))/i!, i, k, n))/2^k, k, 1, n);
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Jun 12 2011
EXTENSIONS
More terms from Harvey P. Dale, May 05 2013
STATUS
approved