A219843 Rows of A219463 seen as numbers in binary representation.

0, 0, 2, 0, 14, 12, 42, 0, 254, 252, 762, 240, 3822, 3276, 10922, 0, 65534, 65532, 196602, 65520, 983022, 851916, 2817962, 65280, 16711422, 16579836, 50002682, 15790320, 250539758, 214748364, 715827882, 0, 4294967294, 4294967292, 12884901882, 4294967280

Offset

0,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

Formula

a(n) = A000225(n+1) - A001317(n);

A000120(a(n)) = A048967(n);

a(A000225(n)) = 0.

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

Sequence in context: A286405 A287131 A287192 * A064855 A088504 A229091

Adjacent sequences: A219840 A219841 A219842 * A219844 A219845 A219846

Keyword

nonn,base

Author

Reinhard Zumkeller, Nov 30 2012

Status

approved