OFFSET
1,3
MATHEMATICA
Accumulate[Which[#==1, 1, #==2, -1, True, 0]&/@(Table[IntegerDigits[2n-1, 5], {n, 60}]//Flatten)] (* Harvey P. Dale, Apr 16 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved