login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A191471 E.g.f. (1+arctan(x))^arctan(x) 0
1, 0, 2, -3, 4, -30, 162, -252, 400, -27912, 200744, 705672, -4202296, -223340208, 1418238416, 29398266888, -114981277184, -8193860510784, 30889433635776, 2261786651427072, -3830504174333824 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
a(n)=sum(m=1..n, sum(j=0..(n-m)/2, (2^(2*j-n)*(n-2*j)!*stirling1(n-m-2*j,m)*(-1)^j*sum(i=0..2*j, (2^(i+n-2*j)*stirling1(i+n-2*j,n-2*j)*binomial(n-1,i+n-2*j-1))/(i+n-2*j)!))/(n-m-2*j)!));
MATHEMATICA
With[{nn=30}, CoefficientList[Series[(1+ArcTan[x])^ArcTan[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 01 2011 *)
PROG
(Maxima)
a(n):=sum(sum((2^(2*j-n)*(n-2*j)!*stirling1(n-m-2*j, m)*(-1)^j*sum((2^(i+n-2*j)*stirling1(i+n-2*j, n-2*j)*binomial(n-1, i+n-2*j-1))/(i+n-2*j)!, i, 0, 2*j))/(n-m-2*j)!, j, 0, (n-m)/2), m, 1, n);
CROSSREFS
Sequence in context: A326829 A064858 A007114 * A354729 A305205 A356905
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Jun 03 2011
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:57 EDT 2024. Contains 371265 sequences. (Running on oeis4.)