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

Comments

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

Links

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

Example

8345 is 102345 in base 6.

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 *)

Crossrefs

Cf. A031443.

Sequence in context: A124415 A233954 A224465 * A031947 A069402 A202588

Adjacent sequences: A049354 A049355 A049356 * A049358 A049359 A049360

Keyword

nonn,base

Author

Harvey P. Dale

Status

approved