A136318 Integers whose binary representation contains exactly two 1s, the 1s not being adjacent.

5, 9, 10, 17, 18, 20, 33, 34, 36, 40, 65, 66, 68, 72, 80, 129, 130, 132, 136, 144, 160, 257, 258, 260, 264, 272, 288, 320, 513, 514, 516, 520, 528, 544, 576, 640, 1025, 1026, 1028, 1032, 1040, 1056, 1088, 1152, 1280, 2049, 2050, 2052, 2056, 2064, 2080, 2112, 2176

Offset

1,1

Links

Gil Broussard, Mar 24 2008, Table of n, a(n) for n = 1..99

Example

a(1) = 5 = 101b.
a(2) = 9 = 1001b.
a(3) = 10 = 1010b.
a(100) = 33024 = 1000000100000000b.

Mathematica

Select[Range[2500], DigitCount[#, 2, 1]==2&&SequenceCount[IntegerDigits[#, 2], {1, 1}]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 25 2017 *)

Crossrefs

Sequence in context: A351205 A164709 A212314 * A242139 A216765 A117771

Adjacent sequences: A136315 A136316 A136317 * A136319 A136320 A136321

Keyword

base,nonn

Author

Gil Broussard, Mar 24 2008

Status

approved