login
Positive integers having the same number of base-16 runs of odd length as even.
1

%I #10 Jan 18 2018 03:38:52

%S 256,272,274,275,276,277,278,279,280,281,282,283,284,285,286,287,290,

%T 307,324,341,358,375,392,409,426,443,460,477,494,511,512,529,544,545,

%U 547,548,549,550,551,552,553,554,555,556,557

%N Positive integers having the same number of base-16 runs of odd length as even.

%H Vincenzo Librandi, <a href="/A044872/b044872.txt">Table of n, a(n) for n = 1..1180</a>

%t b16rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 16]]}, Count[r, _?OddQ]==Length[r]/2]; Select[Range[9000], b16rQ] (* _Vincenzo Librandi_, Jan 18 2018 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_