%I #6 Dec 02 2014 17:41:34
%S 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,
%T 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,
%U 12,13,13,13,12,12,12,11,12,12,11,11,11,11,11
%N (# 3's)-(# 4's) in first n terms of A030588.
%t Accumulate[Which[#==3,1,#==4,-1,True,0]&/@Flatten[Table[ IntegerDigits[ 2n-1,6],{n,50}]]] (* _Harvey P. Dale_, Dec 02 2014 *)
%K nonn
%O 1,7
%A _Clark Kimberling_
|