A049357 Digitally balanced numbers in base 6: equal numbers of 0's, 1's, ..., 5's.

8345, 8350, 8375, 8385, 8410, 8415, 8525, 8530, 8585, 8600, 8620, 8630, 8735, 8745, 8765, 8780, 8835, 8840, 8950, 8955, 8980, 8990, 9015, 9020, 10505, 10510, 10535, 10545, 10570, 10575, 11045, 11050, 11165, 11190, 11200, 11220, 11255

Offset: 1

Author

Harvey P. Dale

Keywords

• nonn
• base

Comments

Subset of A031947. [R. J. Mathar, Oct 15 2008]

Examples

			8345 is 102345 in base 6.
		

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..600

Crossrefs

Cf. A031443.

Row n = 6 of A378000.

Programs

Maple

isA049357 := proc(n)
    local ct60, ct61,ct62,ct63,ct64,ct65,d ;
    ct60 := 0 ; ct61 := 0 ; ct62 := 0 ;
    ct63 := 0 ; ct64 := 0 ; ct65 := 0 ;
    for d in convert(n,base,6) do
        if d = 0 then
            ct60 := ct60+1 ;
        elif d = 1 then
            ct61 := ct61+1 ;
        elif d =2 then
            ct62 := ct62+1 ;
        elif d =3 then
            ct63 := ct63+1 ;
        elif d =4 then
            ct64 := ct64+1 ;
        elif d =5 then
            ct65 := ct65+1 ;
        end if ;
    end do:
    if ct60 = ct61 and ct61 = ct62 and ct62 = ct63 and ct63 = ct64 and ct64 = ct65 then
        return true ;
    else
        return false;
    end if;
end proc:
for n from 1 to 12000 do
    if isA04957(n) then
        print(n);
    end if;
end do: # R. J. Mathar, Aug 24 2023

Mathematica

Select[Range[6000], Length[Union[DigitCount[#, 6]]] == 1 &] (* Vincenzo Librandi, Apr 18 2013 *)