login
A044861
Positive integers having the same number of base-5 runs of odd length as even.
0
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
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: A373505 A234640 A219258 * A161835 A284045 A213929
KEYWORD
nonn,base
STATUS
approved