|
%I #9 Jan 18 2018 03:38:42
%S 225,240,242,243,244,245,246,247,248,249,250,251,252,253,254,257,273,
%T 289,305,321,337,353,369,385,401,417,433,449,450,466,480,481,483,484,
%U 485,486,487,488,489,490,491,492,493,494,498
%N Positive integers having the same number of base-15 runs of odd length as even.
%H Vincenzo Librandi, <a href="/A044871/b044871.txt">Table of n, a(n) for n = 1..10500</a>
%t b15rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 15]]}, Count[r, _?OddQ]==Length[r]/2]; Select[Range[8000], b15rQ] (* _Vincenzo Librandi_, Jan 18 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
