OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
David A. Corneth, n, a(n) and the binary balanced expansion of a(n) for n = 1..10000
Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
EXAMPLE
60 = 2^5 + 2^4 + 2^3 + 2^2 = 2^6 - 2^5 + 2^5 - 2^4 + 2^4 - 2^3 + 2^3 - 2^2 = 2^6 - 2^2 = 1000-100_b, so 60 is a term.
MATHEMATICA
Select[Range@ 241, Length[Plus @@ {PadRight[#, Length[#] + 1], -PadLeft[#, Length[#] + 1]} &@ IntegerDigits[#, 2] /. k_ /; k != 0 -> Nothing] == 5 &] (* Michael De Vlieger, Apr 14 2016 *)
PROG
(PARI) is(n) = my(b = concat(0, binary(n))) ; for(i = 2, #b, if(b[i]==1, b[i - 1] += 1; b[i] = -1)); #select(x->x==0, b)==5 \\ David A. Corneth, Jan 21 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Apr 14 2016
EXTENSIONS
More terms from Peter J. C. Moses, Apr 14 2016
STATUS
approved