OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 4);
numboccur(3, L) - numboccur(0, L)=1
end proc:
select(filter, [$1..300]); # Robert Israel, Jun 05 2018
MATHEMATICA
Select[Range[210], DigitCount[#, 4, 0]==DigitCount[#, 4, 3]-1&] (* Harvey P. Dale, Dec 16 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved