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

Comments

Differs from A037989 if we consider 1001_7 = 344 which has maximal run length 2 (is in A037989) but 1 run of even length and 2 runs of odd length. - R. J. Mathar, May 25 2026

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: A389212 A144566 A037989 * A282148 A277780 A044893

Adjacent sequences: A044845 A044846 A044847 * A044849 A044850 A044851

Keyword

nonn,base,changed

Author

Clark Kimberling

Status

approved