login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A191720 Expansion of e.g.f. arctan(exp(x)-1). 1
1, 1, -1, -11, -25, 181, 2039, 3109, -131545, -1417259, 2734679, 239834629, 2217084935, -23659572299, -859070164681, -5378041927451, 198832696957415, 5164126517703061, 4868884057959959, -2309488856960067131 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..200

Eric Weisstein's MathWorld, Polylogarithm.

FORMULA

a(n) = sum(m=1..(n+1)/2, ((-1)^(m-1)*(2*m-2)!*stirling2(n,2*m-1))).

a(n) ~ (n-1)! * 2^(2*n) * sin(n*arctan(Pi/log(4))) / (Pi^2+4*log(2)^2)^(n/2). - Vaclav Kotesovec, Jan 02 2014

a(n) = (-1)^(n+1)*Im(Li_{1-n}(1+i)), where Li_n(x) is the polylogarithm, i=sqrt(-1). - Vladimir Reshetnikov, Oct 31 2015

MAPLE

a:=series(arctan(exp(x)-1), x=0, 21): seq(n!*coeff(a, x, n), n=0..20); # Paolo P. Lava, Mar 27 2019

MATHEMATICA

nn=20; Rest[CoefficientList[Series[ArcTan[Exp[x]-1], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 22 2011 *)

Table[(-1)^(n+1) Im[PolyLog[1-n, 1+I]], {n, 1, 20}] (* Vladimir Reshetnikov, Oct 31 2015 *)

PROG

(Maxima)

a(n):=sum(((-1)^(m-1)*(2*m-2)!*stirling2(n, 2*m-1)), m, 1, (n+1)/2);

CROSSREFS

Sequence in context: A043160 A043940 A220434 * A066956 A250611 A137015

Adjacent sequences:  A191717 A191718 A191719 * A191721 A191722 A191723

KEYWORD

sign

AUTHOR

Vladimir Kruchinin, Jun 13 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 25 13:05 EDT 2021. Contains 346290 sequences. (Running on oeis4.)