A367271 a(n) = binomial(2*n, n) * n^n.
1, 2, 24, 540, 17920, 787500, 43110144, 2826399576, 215922769920, 18836384175180, 1847560000000000, 201267982422458952, 24110526523754151936, 3150082833623386551800, 445775933018180704665600, 67925014299030761718750000, 11087976122055526032070410240
Offset: 0
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..322
Programs
-
Maple
seq(binomial(2*n, n) * n^n, n = 0..16);
-
Mathematica
A367271[n_]:=If[n==0,1,Binomial[2n,n]n^n]; Array[A367271,20,0] (* Paolo Xausa, Nov 29 2023 *)
Formula
a(n) = A059297(2*n, n).
a(n) ~ 2^(2*n)*n^n/sqrt(n*Pi). - Stefano Spezia, Nov 29 2023