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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A138076 A signed version of A060187 obtained by taking the Z-transform of p(t,x)=Exp[t*(1+2*x)]. 0
1, -1, 1, 1, -6, 1, -1, 23, -23, 1, 1, -76, 230, -76, 1, -1, 237, -1682, 1682, -237, 1, 1, -722, 10543, -23548, 10543, -722, 1, -1, 2179, -60657, 259723, -259723, 60657, -2179, 1, 1, -6552, 331612, -2485288, 4675014, -2485288, 331612, -6552, 1, -1 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

LINKS

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

EXAMPLE

{1},

{-1, 1},

{1, -6, 1},

{-1, 23, -23, 1},

{1, -76, 230, -76, 1},

{-1, 237, -1682, 1682, -237, 1},

{1, -722, 10543, -23548, 10543, -722, 1},

{-1, 2179, -60657, 259723, -259723, 60657, -2179, 1},

{1, -6552, 331612, -2485288, 4675014, -2485288, 331612, -6552, 1},

{-1, 19673, -1756340, 21707972, -69413294, 69413294, -21707972, 1756340, -19673, 1},

{1, -59038, 9116141, -178300904, 906923282, -1527092468, 906923282, -178300904, 9116141, -59038, 1}

MATHEMATICA

p[t_] = Exp[t]*x/(Exp[2*t] + x);

a = Table[ CoefficientList[FullSimplify[ExpandAll[(n!*( 1 + x)^(n + 1)/x)*SeriesCoefficient[ Series[p[ t], {t, 0, 30}], n]]], x], {n, 0, 10}];

Flatten[a]

CROSSREFS

Sequence in context: A155467 A152936 A152969 * A060187 A174527 A156139

Adjacent sequences:  A138073 A138074 A138075 * A138077 A138078 A138079

KEYWORD

sign,tabl

AUTHOR

Roger L. Bagula, Nov 26 2009

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 24 23:02 EST 2018. Contains 299629 sequences. (Running on oeis4.)