OFFSET
1,4
MATHEMATICA
Accumulate[Which[#==1, 1, #==0, -1, True, 0]&/@Flatten[Table[ IntegerDigits[ 2n-1, 6], {n, 50}]]] (* Harvey P. Dale, Jan 30 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved