OFFSET
0,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
MATHEMATICA
A219843[n_]:=FromDigits[Sign[BitAnd[Range[n], -1-n]], 2]; Array[A219843, 50, 0] (* Paolo Xausa, Aug 29 2023 *)
PROG
(Haskell)
a219843 = foldr (\u v-> 2*v + u) 0 . map toInteger . a219463_row
(Python)
def A219843(n): return (1<<n+1)-1-sum((bool(~n&n-k)^1)<<k for k in range(n+1)) # Chai Wah Wu, May 03 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 30 2012
STATUS
approved