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,3

Links

Table of n, a(n) for n=0..24.

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 * A361752 A115220 A293185

Adjacent sequences: A367271 A367272 A367273 * A367275 A367276 A367277

Keyword

nonn

Author

Peter Luschny, Nov 12 2023

Status

approved