OFFSET
0,4
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..541
FORMULA
E.g.f.: Sum_{n>=0} x^n*cosh(n*x)/n!.
a(n) = Sum_{m=0..floor((n-1)/2)} binomial(n,2*m)*(n-2*m)^(2*m) for n >= 1. - Vladimir Kruchinin, Mar 10 2013 [Edited by Petros Hadjicostas, May 06 2020]
EXAMPLE
E.g.f.: A(x) = 1 + x + x^2/2! + 4*x^3/3! + 25*x^4/4! + 96*x^5/5! + 481*x^6/6! +...
MAPLE
a := proc(n) local m: add(binomial(n, 2*m)*(n - 2*m)^(2*m), m = 0 .. floor(1/2*n - 1/2)): end proc:
seq(a(n), n = 1..30); # Petros Hadjicostas, May 06 2020 (for n >= 1)
PROG
(PARI) {a(n)=local(X=x+x*O(x^n), A=1+X); A=(exp(X*exp(X))+exp(X/exp(X)))/2; n!*polcoeff(A, n)}
(PARI) {a(n)=n!*polcoeff(sum(m=0, n, x^m*cosh(m*x+x*O(x^n))/m!), n)}
(PARI) a(n) = sum(k=0, n\2, (n-2*k)^(2*k)*binomial(n, 2*k)); \\ Seiichi Manyama, Feb 15 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Sep 19 2011
STATUS
approved