A044833 Positive integers having more base-7 runs of even length than odd.

8, 16, 24, 32, 40, 48, 392, 400, 408, 416, 424, 432, 440, 784, 792, 800, 808, 816, 824, 832, 1176, 1184, 1192, 1200, 1208, 1216, 1224, 1568, 1576, 1584, 1592, 1600, 1608, 1616, 1960, 1968, 1976, 1984, 1992, 2000, 2008, 2352

Offset

1,1

Links

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

Mathematica

m7eQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 7]]}, Count[r, _?EvenQ]> Length[ r]/2]; Select[Range[2500], m7eQ] (* Harvey P. Dale, Nov 04 2017 *)

Crossrefs

Sequence in context: A108651 A031488 A020335 * A033005 A072066 A342018

Adjacent sequences: A044830 A044831 A044832 * A044834 A044835 A044836

Keyword

nonn,base

Author

Clark Kimberling

Status

approved