OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1180
MATHEMATICA
b16rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 16]]}, Count[r, _?OddQ]==Length[r]/2]; Select[Range[9000], b16rQ] (* Vincenzo Librandi, Jan 18 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved