A037969 Numbers whose maximal base-2 run length is 2.

3, 4, 6, 9, 11, 12, 13, 18, 19, 20, 22, 25, 26, 27, 36, 37, 38, 41, 43, 44, 45, 50, 51, 52, 53, 54, 73, 74, 75, 76, 77, 82, 83, 84, 86, 89, 90, 91, 100, 101, 102, 105, 106, 107, 108, 109, 146, 147, 148, 149, 150, 153, 154, 155, 164, 165

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A000975 = { n | A043276(n)=1 }, A037970 ff.

Programs

Mathematica

Select[Range[200],Max[Length/@Split[IntegerDigits[#,2]]]==2&] (* Harvey P. Dale, Dec 20 2024 *)

PARI

for(i=1,199,A043276(i)==2&&print1(i",")) \\ M. F. Hasler, Jul 23 2013

Formula

A037969 = { n | A043276(n)=2 }. - M. F. Hasler, Jul 23 2013