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,1

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

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

Cf. A007090, A160380, A160383.

Sequence in context: A096346 A104534 A062823 * A045062 A111068 A322430

Adjacent sequences: A031463 A031464 A031465 * A031467 A031468 A031469

Keyword

nonn,base

Author

Clark Kimberling

Status

approved