A031265 a(n)=(# 1's)-(# 0's) in first n terms of A031253.

1, 1, 2, 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 4, 3, 4, 3, 3, 4, 3, 3, 4, 5, 6, 7, 8, 8, 9, 9, 8, 9, 9, 9, 10, 10, 10, 11, 11, 12, 13, 13, 13, 14, 14, 13, 14, 14, 14, 15, 15, 15, 15, 14, 15, 15, 14, 14, 14, 15, 14, 14, 15, 15, 15, 16

Offset

1,3

Links

Table of n, a(n) for n=1..75.

Mathematica

Accumulate[Flatten[Table[IntegerDigits[2n-1, 5]/.{0->-1, 2->0, 3->0, 4->0}, {n, 60}]]] (* Harvey P. Dale, Jan 14 2024 *)

Crossrefs

Sequence in context: A262868 A342097 A259357 * A029202 A173894 A353533

Adjacent sequences: A031262 A031263 A031264 * A031266 A031267 A031268

Keyword

nonn

Author

Clark Kimberling

Status

approved