login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Today, Nov 11 2014, is the 4th anniversary of the launch of the new OEIS web site. 70,000 sequences have been added in these four years, all edited by volunteers. Please make a donation (tax deductible in the US) to help keep the OEIS running.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A163982 Real part of the coefficient [x^n] of the expansion of (1+i)/(1-i*exp(x)) - 1 multiplied by 2*n!, where i is the imaginary unit. 3
-2, -1, 1, 2, -5, -16, 61, 272, -1385, -7936, 50521, 353792, -2702765, -22368256, 199360981, 1903757312, -19391512145, -209865342976, 2404879675441, 29088885112832, -370371188237525, -4951498053124096, 69348874393137901 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

The sequence is a signed variant of A163747 and starts with a two instead of a zero.

From Paul Curtz, Mar 20 2013: (Start)

-a(n) and successive differences are:

2,     1,  -1,  -2,   5,   16,  -61, -272;

-1,   -2,  -1,   7,  11,  -77, -211, 1657,...

-1,    1,   8,   4, -88, -134, 1868, 4894,...

2,     7,  -4, -92, -46,  -46, 2002, 3026,...

5,   -11, -88,  46, 2048,1024,-72928,...

-16, -77, 134, 2002,-1024,-73952,-36976,...

-61, 211, 1868,-3026,-72928,..

272, 1657,-4894,-69902,...

This is an autosequence: The inverse binomial transform (left column of the array of differences) is the signed sequence. The main diagonal 2, -2, 8, -92,... doubles the entries of the first upper diagonal 1, -1, 4, -46,... = A099023(n).

Sum of the antidiagonals: 2,0,-4,0,32,... = 2*A155585(n+1). (End)

LINKS

Table of n, a(n) for n=0..22.

FORMULA

Expansion[(1 + I)/(1 - I*Exp[t]) - 1]=a[n]+I*b[n]; Abs[a[n]]=Abs[b[n]]

a(n) = -2^n(E{n}(1/2)+E{n}(1)), E{n}(x) Euler polynomial. [Peter Luschny, Nov 25 2010]

E.g.f.: -(1/cosh(x)+tanh(x))-1 . - Sergei N. Gladkovskii, Dec 11 2013

MAPLE

A163982 := n -> -2^n*(euler(n, 1/2)+euler(n, 1)): [Peter Luschny, Nov 25 2010]

A163982 := proc(n)

    (1+I)/(1-I*exp(x))-1 ;

    coeftayl(%, x=0, n) ;

    Re(%*2*n!) ;

end proc; # R. J. Mathar, Mar 26 2013

MATHEMATICA

f[t_] = (1 + I)/(1 - I*Exp[t]) - 1 ; Table[Re[2*n!*SeriesCoefficient[Series[f[t], {t, 0, 30}], n]], {n, 0, 30}]

CROSSREFS

Cf. A163747.

Sequence in context: A216396 A117848 A025242 * A246661 A246660 A245405

Adjacent sequences:  A163979 A163980 A163981 * A163983 A163984 A163985

KEYWORD

sign

AUTHOR

Roger L. Bagula, Aug 07 2009

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified November 20 21:20 EST 2014. Contains 249754 sequences.