OFFSET
0,3
MAPLE
a := n -> binomial(n, iquo(n, 2))*(n - iquo(n, 2))^iquo(n, 2):
seq(a(n), n = 0..24);
MATHEMATICA
A367274[n_]:=If[n==0, 1, With[{k=Floor[n/2]}, Binomial[n, k](n-k)^k]];
Array[A367274, 30, 0] (* Paolo Xausa, Nov 29 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 12 2023
STATUS
approved