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!)
A088127 E.g.f. exp(-x)*cosh(x)/(1-x)^2. 2
1, 1, 4, 14, 72, 424, 2960, 23568, 211456, 2109056, 23150592, 277315840, 3599704064, 50331030528, 754122723328, 12054165272576, 204743835156480, 3682557441114112, 69920454322356224, 1397542619388248064, 29331932133035081728, 644973249444408197120 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

A088127(n)+A037256(n)=(n+1)! Binomial transform is A088128.

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

FORMULA

Recurrence: a(n) = 2*(n-1)*a(n-1) - (n-4)*(n-1)*a(n-2) - 2*(n-2)*(n-1)*a(n-3). - Vaclav Kotesovec, Oct 14 2012

a(n) ~ n!*n*(1+1/e^2)/2. - Vaclav Kotesovec, Oct 14 2012

MATHEMATICA

Table[n!*SeriesCoefficient[E^(-x)*Cosh[x]/(1-x)^2, {x, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Oct 14 2012 *)

With[{nn=30}, CoefficientList[Series[Exp[-x] Cosh[x]/(1-x)^2, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 24 2020 *)

PROG

(PARI) x='x+O('x^66); Vec(serlaplace(exp(-x)*cosh(x)/(1-x)^2)) \\ Joerg Arndt, May 10 2013

CROSSREFS

Sequence in context: A322700 A167144 A159483 * A242739 A007282 A222900

Adjacent sequences:  A088124 A088125 A088126 * A088128 A088129 A088130

KEYWORD

easy,nonn

AUTHOR

Paul Barry, Sep 19 2003

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 February 27 07:53 EST 2021. Contains 341649 sequences. (Running on oeis4.)