OFFSET
1,1
MATHEMATICA
b5rQ[n_]:=Module[{r=Length/@Split[IntegerDigits[n, 5]]}, Count[r, _?OddQ] == Length[r]/2]; Select[Range[1500], b5rQ] (* Harvey P. Dale, Jun 01 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved