login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037013 Reading binary expansion from right to left, run lengths strictly decrease. 18
0, 1, 3, 4, 7, 8, 15, 16, 24, 31, 32, 39, 48, 63, 64, 79, 96, 112, 127, 128, 143, 159, 192, 224, 255, 256, 287, 319, 384, 399, 448, 480, 511, 512, 543, 575, 624, 639, 768, 799, 896, 960, 1023, 1024, 1087, 1151, 1248, 1279, 1536, 1567, 1599, 1792, 1920, 1984, 2047, 2048, 2111 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

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

Index entries for sequences related to binary expansion of n

MATHEMATICA

Select[Range[0, 2200], Min[Differences[Length/@Split[ IntegerDigits[ #, 2]]]]>0&] (* Harvey P. Dale, Dec 17 2012 *)

PROG

(Haskell)

import Data.List (unfoldr, group)

a037013 n = a037013_list !! (n-1)

a037013_list = 0 : filter

   (all (< 0) . (\x -> zipWith (-) (tail $ rls x) $ rls x)) [1..] where

       rls = map length . group . unfoldr

             (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 2)

-- Reinhard Zumkeller, Mar 10 2012

CROSSREFS

Subsequence of A037014, cf. A037015, A037016.

Sequence in context: A323247 A285662 A112062 * A050069 A219019 A306612

Adjacent sequences:  A037010 A037011 A037012 * A037014 A037015 A037016

KEYWORD

nonn,easy,base,nice

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from Patrick De Geest, Feb 15 1999

Offset fixed and missing 1024 and 2047 inserted by Reinhard Zumkeller, Mar 10 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 16 21:59 EDT 2021. Contains 343954 sequences. (Running on oeis4.)