A037977 Numbers whose maximal base 4 run length is 2.

5, 10, 15, 16, 20, 22, 23, 26, 31, 32, 37, 40, 41, 43, 47, 48, 53, 58, 60, 61, 62, 65, 66, 67, 69, 74, 79, 80, 81, 82, 83, 88, 89, 90, 91, 92, 93, 94, 95, 96, 101, 104, 105, 107, 111, 112, 117, 122, 124, 125, 126, 129, 130, 131, 133, 138, 143, 144, 148, 150

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A043278.

Programs

Mathematica

Select[Range[200],Max[Length/@Split[IntegerDigits[#,4]]]==2&] (* Harvey P. Dale, Apr 09 2023 *)

Extensions

More terms from Harvey P. Dale, Apr 09 2023