A039563 Numbers whose base-5 representation has the same number of 0's, 1's and 2's.

3, 4, 18, 19, 23, 24, 27, 35, 51, 55, 93, 94, 98, 99, 118, 119, 123, 124, 138, 139, 142, 147, 178, 179, 190, 195, 202, 210, 227, 235, 258, 259, 266, 271, 278, 279, 290, 295, 326, 330, 351, 355, 382, 386, 402, 410, 426, 430, 468, 469, 473, 474, 493, 494, 498

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A007091 (numbers in base 5).

Programs

Magma

f:=func; [k:k in [1..500]|f(k,5,0) eq f(k,5,1) and f(k,5,0) eq f(k,5,2)]; // Marius A. Burtea, Jan 17 2020

Maple

filter:= proc(n) local L,m;
  L:= sort(select(`<=`,convert(n,base,5),2));
  m:= nops(L)/3;
  m::integer and L = [0$m,1$m,2$m];
end proc:
select(filter, [$1..1000]); # Robert Israel, Jan 17 2020

Mathematica

Select[Range[500],DigitCount[#,5,0]==DigitCount[#,5,1] == DigitCount[ #,5,2]&] (* Harvey P. Dale, Dec 24 2021 *)