A037869 a(n) = (number of digits <=4)-(number of digits >4) in base 10 representation of n.

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, 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, -2, -2, -2, -2, -2, 0, 0, 0, 0, 0, -2, -2, -2, -2, -2, 0, 0

Offset

0,10

Links

Table of n, a(n) for n=0..80.

Mathematica

f[n_]:=Module[{dcn=Partition[RotateRight[DigitCount[n]], 5]}, Total[First[dcn]]-Total[Last[dcn]]]; Array[f, 90] (* Harvey P. Dale, May 17 2011 *)

Crossrefs

Sequence in context: A114294 A371929 A242050 * A037868 A173069 A363934

Adjacent sequences: A037866 A037867 A037868 * A037870 A037871 A037872

Keyword

base,sign

Author

Clark Kimberling

Status

approved