A367274 a(n) = binomial(n, k) * (n - k)^k where k = floor(n/2).

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

Author

Peter Luschny, Nov 12 2023

Keywords

• nonn

Crossrefs

Cf. A059299.

Programs

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 *)