OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..450
FORMULA
E.g.f.: (exp(x) + exp(-x) - 2)/(2*(1 - x)).
a(n) = floor((cosh(1)-1)*n!). - Benoit Cloitre, Feb 14 2003
a(n) = (n-1)*(a(n-1) + a(n-2)) + 1 for n > 1. - Gary Detlefs, Jun 22 2010
a(n) = (1/2)*(exp(-1)*Gamma(n+1,-1) + exp(1)*Gamma(n+1,1)) - Gamma(n+1,0). - Martin Clever, Mar 26 2023
MATHEMATICA
c=CoefficientList[Series[(e^x+e^(-x)-2)/(2(1-x)), {x, 0, 25}], x]; For[n = 0, n < 26, n++; Print[c[[n]]*(n - 1)! ]]
Join[{0}, RecurrenceTable[{a[1]==0, a[2]==1, a[n]==(n-1)(a[n-1]+a[n-2])+ 1}, a[n], {n, 30}]] (* Harvey P. Dale, Jul 21 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mario Catalani (mario.catalani(AT)unito.it), Feb 07 2003
STATUS
approved