OFFSET
0,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
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
KEYWORD
nonn
AUTHOR
Peter Luschny, Mar 23 2024
STATUS
approved