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,1

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A025061 A284741 A342577 * A329862 A153236 A158705

Adjacent sequences: A037966 A037967 A037968 * A037970 A037971 A037972

Keyword

nonn,base

Author

Clark Kimberling

Status

approved