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
KEYWORD
base,nonn
AUTHOR
Gil Broussard, Mar 24 2008
STATUS
approved