A044861 Positive integers having the same number of base-5 runs of odd length as even.

25, 30, 32, 33, 34, 37, 43, 49, 50, 56, 60, 61, 63, 64, 68, 74, 75, 81, 87, 90, 91, 92, 94, 99, 100, 106, 112, 118, 120, 121, 122, 123, 625, 750, 775, 780, 782, 783, 784, 787, 793, 799, 812, 843, 874, 937, 1093, 1249, 1250, 1406

Offset

1,1

Links

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

Mathematica

b5rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 5]]}, Count[r, _?OddQ] == Length[r]/2]; Select[Range[1500], b5rQ] (* Harvey P. Dale, Jun 01 2014 *)

Crossrefs

Sequence in context: A317392 A234640 A219258 * A161835 A284045 A213929

Adjacent sequences: A044858 A044859 A044860 * A044862 A044863 A044864

Keyword

nonn,base

Author

Clark Kimberling

Status

approved