login
A367274
a(n) = binomial(n, k) * (n - k)^k where k = floor(n/2).
1
1, 1, 2, 6, 24, 90, 540, 2240, 17920, 78750, 787500, 3592512, 43110144, 201885684, 2826399576, 13495173120, 215922769920, 1046465787510, 18836384175180, 92378000000000, 1847560000000000, 9148544655566316, 201267982422458952, 1004605271823089664, 24110526523754151936
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
Cf. A059299.
Sequence in context: A226037 A003450 A192466 * A375276 A374598 A361752
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 12 2023
STATUS
approved