A031466 Numbers whose base-4 representation has one fewer 0 than 3's.

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

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

Numbers n such that A160383(n) - A160380(n) = 1. - Robert Israel, Jun 05 2018

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007090, A160380, A160383.

Programs

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 *)