OFFSET
1,2
MATHEMATICA
Accumulate[Flatten[Table[IntegerDigits[2n - 1, 2], {n, 50}]] /. 0 -> -1] (* Alonso del Arte, Feb 16 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Name clarified by Alonso del Arte, Feb 10 2020
STATUS
approved