login
A191011
E.g.f. log(1 + sin(arctan(x))).
0
0, 1, -1, -1, 6, 9, -120, -225, 5040, 11025, -362880, -893025, 39916800, 108056025, -6227020800, -18261468225, 1307674368000, 4108830350625, -355687428096000, -1187451971330625, 121645100408832000
OFFSET
0,5
FORMULA
a(n) = n!*sum(m=0..(n-1)/2, binomial((n-2)/2,m)*(-1)^(n-m-1)/(n-2*m)), n>0.
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Log[1+Sin[ArcTan[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 19 2011 *)
PROG
(Maxima)
a(n):=n!*sum(binomial((n-2)/2, m)*(-1)^(n-m-1)/(n-2*m), m, 0, (n-1)/2);
CROSSREFS
Sequence in context: A377683 A121233 A156180 * A351734 A053490 A265383
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Jun 16 2011
STATUS
approved