|
%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_
|
