OFFSET
1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A079523(n) - 1.
MATHEMATICA
Select[Range[3500], MatchQ[IntegerDigits[#, 2], {b : (1) ..} | {___, 0, b : (1) ..} /; OddQ[Length[{b}]]] &] - 1 (* G. C. Greubel, Jan 05 2018 *)
With[{nn=200}, Sort[Join[SequencePosition[ThueMorse[Range[0, nn]], {1, 0, 0, 1}], SequencePosition[ ThueMorse[Range[0, nn]], {0, 1, 1, 0}]]][[;; , 1]]]-1 (* Harvey P. Dale, Aug 20 2024 *)
PROG
(PARI) is(n)=my(v=vector(4, i, hammingweight(n+i-1))); v[1]==v[4] && v[1]!=v[2] && v[1]!=v[3] \\ Charles R Greathouse IV, Aug 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Jul 08 2009
EXTENSIONS
More readable definition from R. J. Mathar, Sep 16 2009
STATUS
approved