cp's OEIS Frontend

A107909 Numbers having no consecutive zeros or no consecutive ones in binary representation.

%I A107909 #16 Feb 13 2017 01:53:55
%S A107909 0,1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,17,18,20,21,22,23,26,27,29,30,
%T A107909 31,32,33,34,36,37,40,41,42,43,45,46,47,53,54,55,58,59,61,62,63,64,65,
%U A107909 66,68,69,72,73,74,80,81,82,84,85,86,87,90,91,93,94,95,106,107,109,110,111
%N A107909 Numbers having no consecutive zeros or no consecutive ones in binary representation.
%C A107909 Union of A003754 and A003714, complement of A107911;
%C A107909 a(A023548(n+2)) = A052940(n+1) for n>0;
%C A107909 a(A001924(n)) = A000225(n) = 2^n - 1;
%C A107909 a(A000126(n)) = A000079(n) = 2^n for n>0;
%C A107909 A107910(n) = a(n+1) - a(n).
%H A107909 Ivan Neretin, <a href="/A107909/b107909.txt">Table of n, a(n) for n = 0..10000</a>
%H A107909 J. M. Dusel, <a href="http://math.ucr.edu/~jmd/JohnMDusel_balanced_quotients.pdf">Balanced parabolic quotients and branching rules for Demazure crystals</a>, 2014.
%H A107909 <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.
%o A107909 (Perl)
%o A107909 foreach $n(1..100){$_=sprintf("%b",$n); print "$n\n" if !m/11/||!m/00/}
%o A107909 # _Ivan Neretin_, May 01 2016
%Y A107909 Cf. A007088, A107907.
%K A107909 nonn,base,easy
%O A107909 0,3
%A A107909 _Reinhard Zumkeller_, May 28 2005