OFFSET
1,1
COMMENTS
n is included if A144790(n) >= 2.
A173024 is a subsequence. - Reinhard Zumkeller, Feb 07 2010
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MAPLE
isA144795 := proc(n) local bind, i ; bind := convert(n, base, 2) ; for i from 1 to nops(bind) do if i = 1 then if op(i, bind) = 1 and op(i+1, bind) = 0 then RETURN(false) : fi; elif i = nops(bind) then if op(i, bind) = 1 and op(i-1, bind) = 0 then RETURN(false) : fi; else if op(i, bind) = 1 and op(i-1, bind) = 0 and op(i+1, bind) = 0 then RETURN(false) : fi; fi; od: RETURN(true) ; end: for n from 3 to 400 do if isA144795(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Sep 29 2008
MATHEMATICA
Select[Range@ 250, AllTrue[Map[Length, Select[Split@ IntegerDigits[#, 2], First@ # == 1 &]], # > 1 &] &] (* Michael De Vlieger, Aug 20 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Sep 21 2008
EXTENSIONS
Extended by R. J. Mathar, Sep 29 2008
STATUS
approved