A377169 -id:A377169 - cp's OEIS frontend

A144795 A positive integer n is included if every 1 in binary n is next to at least one other 1.

3, 6, 7, 12, 14, 15, 24, 27, 28, 30, 31, 48, 51, 54, 55, 56, 59, 60, 62, 63, 96, 99, 102, 103, 108, 110, 111, 112, 115, 118, 119, 120, 123, 124, 126, 127, 192, 195, 198, 199, 204, 206, 207, 216, 219, 220, 222, 223, 224, 227, 230, 231, 236, 238, 239, 240, 243, 246

Offset: 1

Leroy Quet, Sep 21 2008

n is included if A144790(n) >= 2.

A173024 is a subsequence. - Reinhard Zumkeller, Feb 07 2010

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Cf. A144790, A144794.
Cf. A004760, A173022, A005251, A173025. - Reinhard Zumkeller, Feb 07 2010
Complement of A377169.

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

Select[Range@ 250, AllTrue[Map[Length, Select[Split@ IntegerDigits[#, 2], First@ # == 1 &]], # > 1 &] &] (* Michael De Vlieger, Aug 20 2017 *)

Extended by R. J. Mathar, Sep 29 2008

A377167 Nonnegative integers containing isolated zeros in their binary representation.

Original entry on oeis.org

0, 2, 5, 6, 10, 11, 13, 14, 18, 20, 21, 22, 23, 26, 27, 29, 30, 34, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 50, 52, 53, 54, 55, 58, 59, 61, 62, 66, 69, 70, 74, 75, 77, 78, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 101, 102, 104, 105, 106

Offset: 1

Paolo Xausa, Oct 18 2024

A 0 is isolated if it's not adjacent to another 0.

			18 is a term because 18 = 10010_2 contains one isolated 0.
85 is a term because all zeros in 85 = 1010101_2 are isolated.

Paolo Xausa, Table of n, a(n) for n = 1..10000

Complement of A175054.

Cf. A004748, A007088, A377169.

Select[Range[0, 150], MemberQ[Split[IntegerDigits[#, 2]], {0}] &]

{ k : k=0 or 2k+1 in {A004748} }.

cp's OEIS Frontend

A144795 A positive integer n is included if every 1 in binary n is next to at least one other 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Extensions