login
Numbers whose maximal base 4 run length is 3.
1

%I #9 Jul 16 2017 13:19:56

%S 21,42,63,64,84,86,87,106,127,128,149,168,169,171,191,192,213,234,252,

%T 253,254,257,258,259,277,298,319,320,336,337,338,339,344,345,346,347,

%U 348,349,350,351,362,383,384,405,424,425,427

%N Numbers whose maximal base 4 run length is 3.

%t Select[Range[500],Max[Length/@Split[IntegerDigits[#,4]]]==3&] (* _Harvey P. Dale_, Jul 16 2017 *)

%Y Cf. A043278.

%K nonn,base

%O 1,1

%A _Clark Kimberling_