%I #10 Jul 30 2022 09:51:45
%S 1,1,1,1,-1,-1,-1,-1,-1,2,2,2,2,2,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,2,2,2,
%T 2,2,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,-2,-2,-2,-2,-2,0,0,0,0,0,
%U -2,-2,-2,-2,-2,0,0,0,0,0,-2,-2,-2,-2,-2,0,0
%N a(n) = (number of digits <=4)-(number of digits >4) in base 10 representation of n.
%t f[n_]:=Module[{dcn=Partition[RotateRight[DigitCount[n]], 5]},Total[First[dcn]]-Total[Last[dcn]]]; Array[f,90] (* _Harvey P. Dale_, May 17 2011 *)
%K base,sign
%O 0,10
%A _Clark Kimberling_
|