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