A044848 Positive integers having no fewer base-7 runs of even length than odd.

8, 16, 24, 32, 40, 48, 49, 56, 58, 59, 60, 61, 62, 65, 73, 81, 89, 97, 98, 106, 112, 113, 115, 116, 117, 118, 122, 130, 138, 146, 147, 155, 163, 168, 169, 170, 172, 173, 174, 179, 187, 195, 196, 204, 212, 220, 224, 225, 226, 227

Offset

1,1

Links

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

Mathematica

Select[Range[250], Total[If[EvenQ[#], 1, -1]&/@(Length/@Split[IntegerDigits[#, 7]])]>=0&] (* Harvey P. Dale, Nov 22 2023 *)

Crossrefs

Sequence in context: A244371 A144566 A037989 * A282148 A277780 A044893

Adjacent sequences: A044845 A044846 A044847 * A044849 A044850 A044851

Keyword

nonn,base

Author

Clark Kimberling

Status

approved