A036993 Numbers n with property that reading from right to left in the binary expansion of n, the number of 0's always stays ahead of the number of 1's.

0, 4, 8, 16, 20, 24, 32, 36, 40, 48, 64, 68, 72, 80, 84, 88, 96, 100, 104, 112, 128, 132, 136, 144, 148, 152, 160, 164, 168, 176, 192, 196, 200, 208, 224, 256, 260, 264, 272, 276, 280, 288, 292, 296, 304, 320, 324, 328, 336, 340, 344, 352, 356, 360, 368, 384

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy
• base
• nice

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A036990, A036991, A036992, A036994.

Cf. A030308.

Programs

Haskell

a036993 n = a036993_list !! (n-1)
a036993_list = filter ((p 0) . a030308_row) [0..] where
   p _     []     = True
   p zeros (0:bs) = p (zeros + 1) bs
   p zeros (1:bs) = zeros > 1 && p (zeros - 1) bs
-- Reinhard Zumkeller, Jul 31 2013

Mathematica

Select[Range[0,400],Min[Accumulate[Reverse[IntegerDigits[#,2]]/.{0->1, 1->-1}]]>0&] (* Harvey P. Dale, Aug 25 2013 *)

Extensions

More terms from Erich Friedman