|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
filter:= proc(n) local L;
L:= convert(n, base, 4);
numboccur(3, L) - numboccur(0, L)=1
end proc:
|
|
MATHEMATICA
|
Select[Range[210], DigitCount[#, 4, 0]==DigitCount[#, 4, 3]-1&] (* Harvey P. Dale, Dec 16 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|