%I #15 Jan 01 2021 11:23:34
%S 0,3,6,12,24,48,51,96,99,102,192,195,198,204,384,387,390,396,408,768,
%T 771,774,780,792,816,819,1536,1539,1542,1548,1560,1584,1587,1632,1635,
%U 1638,3072,3075,3078,3084,3096
%N Binary expansion matches ((0)*0011)*(0*).
%C 1-bits occur only in pairs, separated from other such pairs by at least two 0-bits.
%C All terms satisfy both A048727(n) = 3*n and A048725(n) = 5*n.
%H <a href="/index/Con#CongruCrossDomain">Index entries for sequences defined by congruent products between domains N and GF(2)[X]</a>
%F a(n) = 3*A048718(n).
%t filterQ[n_] := With[{bb = IntegerDigits[n, 2]}, !MatchQ[bb, {1}|{1, 0, ___}|{___, 0, 1}|{___, 0, 1, 0, ___}|{___, 1, 1, 1, ___}|{___, 1, 0, 1, ___}]];
%t Select[Range[0, 3096], filterQ] (* _Jean-François Alcover_, Dec 31 2020 *)
%o (PARI) is(n)=n%3==0 && !bitand(n/3, 14*n/3) \\ _Charles R Greathouse IV_, Oct 03 2016
%Y Intersection of A048716 and A048717.
%K nonn,base,easy
%O 0,2
%A _Antti Karttunen_, Mar 30 1999