login
A048717
Binary expansion matches ((0)*00(1*)11)*(0*).
8
0, 3, 6, 7, 12, 14, 15, 24, 28, 30, 31, 48, 51, 56, 60, 62, 63, 96, 99, 102, 103, 112, 115, 120, 124, 126, 127, 192, 195, 198, 199, 204, 206, 207, 224, 227, 230, 231, 240, 243, 248, 252, 254, 255, 384, 387, 390, 391
OFFSET
0,2
COMMENTS
In binary expansion, 1-bits occur only in groups of two or more, separated from other such groups by at least two 0-bits.
Integers that satisfy A048727(n) = 3*n.
MATHEMATICA
filterQ[n_] := !MatchQ[IntegerDigits[n, 2], {1}|{1, 0, ___}|{___, 0, 1}|{___, 1, 0, 1, ___}|{___, 0, 1, 0, ___}];
Select[Range[0, 400], filterQ] (* Jean-François Alcover, Dec 31 2020 *)
CROSSREFS
Row 3 of A115872. Superset of A048719. Cf. A048733.
Sequence in context: A144795 A364292 A077459 * A175332 A022434 A242666
KEYWORD
nonn,base,easy
AUTHOR
Antti Karttunen, Mar 30 1999
STATUS
approved