|
%I #10 Sep 03 2017 21:53:41
%S 1,3,4,7,8,9,12,15,16,17,19,24,25,28,31,32,33,35,36,39,48,49,51,56,57,
%T 60,63,64,65,67,68,71,72,73,76,79,96,97,99,100,103,112,113,115,120,
%U 121,124,127,128,129,131,132,135,136,137,140,143,144,145,147,152,153,156
%N A positive integer n is included if there is no run of 0's in the binary representation of n that is only one digit long.
%C This sequence consists of the terms of A144794 together with those integers of the form 2^k -1.
%H Michael De Vlieger, <a href="/A175054/b175054.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range@ 160, Select[Split@ IntegerDigits[#, 2], Length[#] == 1 && First[#] == 0 &] == {} &] (* _Michael De Vlieger_, Sep 03 2017 *)
%Y Cf. A144794.
%K base,nonn
%O 1,2
%A _Leroy Quet_, Dec 08 2009
%E Extended by _Ray Chandler_, Dec 18 2009
|
