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