login
A031466
Numbers whose base-4 representation has one fewer 0 than 3's.
1
3, 7, 11, 13, 14, 23, 27, 29, 30, 39, 43, 45, 46, 51, 53, 54, 57, 58, 60, 79, 87, 91, 93, 94, 103, 107, 109, 110, 115, 117, 118, 121, 122, 124, 143, 151, 155, 157, 158, 167, 171, 173, 174, 179, 181, 182, 185, 186, 188, 199, 203, 205
OFFSET
1,1
COMMENTS
Numbers n such that A160383(n) - A160380(n) = 1. - Robert Israel, Jun 05 2018
LINKS
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
STATUS
approved