|
%I #13 Apr 07 2016 02:36:39
%S 2,3,9,10,11,13,37,41,42,43,45,53,149,165,169,170,171,173,181,213,597,
%T 661,677,681,682,683,685,693,725,853,2389,2645,2709,2725,2729,2730,
%U 2731,2733,2741,2773,2901,3413,9557,10581,10837,10901,10917,10921,10922,10923
%N Numbers written in binary balanced system (A270885) that have exactly one zero.
%H Vladimir Shevelev, <a href="http://arxiv.org/abs/1603.04434">Two analogs of Thue-Morse sequence</a>, arXiv:1603.04434 [math.NT], 2016.
%e 43 = 2^5+2^3+2+1 = 2^6-2^5+2^4-2^3+2^2-2+2-1 = 1-11-110-1_b. So 43 is a member.
%t Select[Range@ 11000, Count[Plus @@ {PadRight[#, Length@ # + 1], -PadLeft[#, Length@ # + 1]} &@ IntegerDigits[#, 2], 0] == 1 &] (* _Michael De Vlieger_, Mar 25 2016 *)
%Y Cf. A270885.
%K nonn,base
%O 1,1
%A _Vladimir Shevelev_, Mar 25 2016
%E More terms from _Peter J. C. Moses_, Mar 25 2016
|
