A044869 Positive integers having the same number of base-13 runs of odd length as even.

169, 182, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 197, 211, 225, 239, 253, 267, 281, 295, 309, 323, 337, 338, 352, 364, 365, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 380, 394, 408, 422, 436, 450, 464

Offset

1,1

Links

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

Mathematica

oleQ[n_]:=Module[{oe=Length/@Split[IntegerDigits[n, 13]]}, Count[oe, _?OddQ] == Length[oe]/2]; Select[Range[500], oleQ] (* Harvey P. Dale, Aug 05 2017 *)

Crossrefs

Sequence in context: A343269 A240069 A184035 * A260055 A235718 A239724

Adjacent sequences: A044866 A044867 A044868 * A044870 A044871 A044872

Keyword

nonn,base

Author

Clark Kimberling

Status

approved