login
A371357
a(n) = 2^(n - HammingWeight(n)) * binomial(2*n, n).
1
1, 2, 12, 40, 560, 2016, 14784, 54912, 1647360, 6223360, 47297536, 180590592, 2769055744, 10650214400, 82158796800, 317680680960, 19696202219520, 76467608616960, 594748067020800, 2316387208396800, 36135640450990080, 141101072237199360, 1103153837490831360
OFFSET
0,2
FORMULA
a(n) = A060818(n) * A000984(n).
MAPLE
HammingWeight := n -> add(convert(n, base, 2)):
a := n -> 2^(n - HammingWeight(n))*binomial(2*n, n):
seq(a(n), n = 0..22);
MATHEMATICA
Array[2^(# - DigitCount[#, 2, 1]) * Binomial[2*#, #] &, 25, 0] (* Paolo Xausa, Mar 31 2024 *)
CROSSREFS
Sequence in context: A188572 A098519 A127725 * A280174 A185619 A048014
KEYWORD
nonn
AUTHOR
Peter Luschny, Mar 23 2024
STATUS
approved