A039018 Numbers whose base-6 representation has the same number of 0's and 3's.

1, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 18, 25, 26, 28, 29, 31, 32, 34, 35, 39, 43, 44, 46, 47, 49, 50, 52, 53, 54, 61, 62, 64, 65, 67, 68, 70, 71, 75, 79, 80, 82, 83, 85, 86, 88, 89, 90, 97, 98, 100, 101, 103, 104, 106, 107, 109, 110, 112, 113, 114, 120, 132, 138, 147

Offset

1,2

Links

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

Maple

filter:= proc(n) local L;
  L:= convert(n, base, 6);
  numboccur(0, L)=numboccur(3, L)
end proc:
select(filter, [$1..200]); # Robert Israel, May 30 2018

Mathematica

Select[Range[200], DigitCount[#, 6, 0]==DigitCount[#, 6, 3]&] (* Harvey P. Dale, Feb 25 2015 *)

Crossrefs

Cf. A007092 (numbers in base 6).

Sequence in context: A330116 A189784 A062005 * A284602 A286355 A292665

Adjacent sequences: A039015 A039016 A039017 * A039019 A039020 A039021

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved