A030603 (# 3's)-(# 4's) in first n terms of A030588.

0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 7, 7, 6, 6, 5, 6, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 11, 12, 12, 13, 13, 13, 12, 12, 12, 11, 12, 12, 11, 11, 11, 11, 11

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Programs

Mathematica

Accumulate[Which[#==3,1,#==4,-1,True,0]&/@Flatten[Table[ IntegerDigits[ 2n-1,6],{n,50}]]] (* Harvey P. Dale, Dec 02 2014 *)