[go: up one dir, main page]

login
A358603
a(n) = Sum_{k=0..floor(n/2)} (-1)^k * (n-k)!/(n-2*k)!.
4
1, 1, 0, -1, 0, 3, 2, -9, -12, 35, 78, -153, -544, 723, 4170, -3337, -35028, 10851, 320678, 57255, -3178152, -2190253, 33864546, 42120183, -385314460, -719159517, 4649508222, 12033407591, -59076411312, -204022615725, 784134861818, 3554417974647, -10768948801764
OFFSET
0,6
LINKS
FORMULA
a(n) = (a(n-1) - n * a(n-2) + 1)/2 for n > 1.
MATHEMATICA
nxt[{n_, a_, b_}]:={n+1, b, (b-a(n+1)+1)/2}; NestList[nxt, {1, 1, 1}, 40][[;; , 2]] (* Harvey P. Dale, Jul 25 2024 *)
PROG
(PARI) a(n) = sum(k=0, n\2, (-1)^k*(n-k)!/(n-2*k)!);
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Nov 23 2022
STATUS
approved