OFFSET
0,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
MATHEMATICA
Join[{1}, Table[(n)! Sum[n^(2 k) / (2 k)!, {k, 0, n/2}], {n, 20}]] (* Vincenzo Librandi, Apr 08 2020 *)
PROG
(PARI) a(n) = {n!*sum(k=0, n\2, n^(2*k)/(2*k)!)} \\ Andrew Howroyd, Mar 07 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Missing a(0)=1 inserted by Andrew Howroyd, Mar 07 2020
STATUS
approved