A044871 Positive integers having the same number of base-15 runs of odd length as even.

225, 240, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 257, 273, 289, 305, 321, 337, 353, 369, 385, 401, 417, 433, 449, 450, 466, 480, 481, 483, 484, 485, 486, 487, 488, 489, 490, 491, 492, 493, 494, 498

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..10500

Mathematica

b15rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 15]]}, Count[r, _?OddQ]==Length[r]/2]; Select[Range[8000], b15rQ] (* Vincenzo Librandi, Jan 18 2017 *)

Crossrefs

Sequence in context: A247885 A345552 A345806 * A202005 A359598 A207639

Adjacent sequences: A044868 A044869 A044870 * A044872 A044873 A044874

Keyword

nonn,base

Author

Clark Kimberling

Status

approved