OFFSET
0,3
LINKS
MATHEMATICA
With[{nn = 96}, ReplacePart[ConstantArray[0, nn], Map[# -> # &, 1 + Position[Partition[Array[BitXor[#, Floor[#/2]] &, nn], 2, 1], _?(First@ # > Last@ # &), {1}, Heads -> False][[All, 1]] ]]] (* Michael De Vlieger, Nov 25 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 24 2018
STATUS
approved