A039139 Numbers whose base-10 representation has the same number of 3's and 8's.

0, 1, 2, 4, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 26, 27, 29, 38, 40, 41, 42, 44, 45, 46, 47, 49, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 72, 74, 75, 76, 77, 79, 83, 90, 91, 92, 94, 95, 96, 97, 99, 100, 101, 102

Offset

1,3

Links

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

Maple

filter:= proc(n) local L; L:= convert(n, base, 10);
  numboccur(3, L)=numboccur(8, L)
end proc:
select(filter, [$0..1000]); # Robert Israel, Jan 21 2019

Mathematica

Select[Range[0, 200], DigitCount[#, 10, 3]== DigitCount[#, 10, 8]&]  (* Harvey P. Dale, Mar 27 2011 *)

Crossrefs

Sequence in context: A184516 A184738 A032769 * A349829 A230633 A024616

Adjacent sequences: A039136 A039137 A039138 * A039140 A039141 A039142

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved