OFFSET
0,3
COMMENTS
Also 0th term of the 2n-th forward differences of n!.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..225
Wikipedia, Permutation
FORMULA
a(n) = A306512(2n,n).
a(n) = (2n)! - A306675(n).
a(n) = KummerU(-2*n, -2*n, -1). - Peter Luschny, May 10 2022
MAPLE
b:= proc(n, k) b(n, k):= `if`(k=0, n!, b(n+1, k-1) -b(n, k-1)) end:
a:= n-> b(0, 2*n):
seq(a(n), n=0..23);
seq(simplify(KummerU(-2*n, -2*n, -1)), n=0..15); # Peter Luschny, May 10 2022
MATHEMATICA
b[n_, k_] := b[n, k] = If[k == 0, n!, b[n + 1, k - 1] - b[n, k - 1]];
a[n_] := b[0, 2n];
a /@ Range[0, 23] (* Jean-François Alcover, Apr 02 2021, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Feb 22 2019
STATUS
approved