|
%I #17 Aug 24 2023 12:13:12
%S 8345,8350,8375,8385,8410,8415,8525,8530,8585,8600,8620,8630,8735,
%T 8745,8765,8780,8835,8840,8950,8955,8980,8990,9015,9020,10505,10510,
%U 10535,10545,10570,10575,11045,11050,11165,11190,11200,11220,11255
%N Digitally balanced numbers in base 6: equal numbers of 0's, 1's, ..., 5's.
%C Subset of A031947. [_R. J. Mathar_, Oct 15 2008]
%H Vincenzo Librandi, <a href="/A049357/b049357.txt">Table of n, a(n) for n = 1..600</a>
%e 8345 is 102345 in base 6.
%p isA049357 := proc(n)
%p local ct60, ct61,ct62,ct63,ct64,ct65,d ;
%p ct60 := 0 ; ct61 := 0 ; ct62 := 0 ;
%p ct63 := 0 ; ct64 := 0 ; ct65 := 0 ;
%p for d in convert(n,base,6) do
%p if d = 0 then
%p ct60 := ct60+1 ;
%p elif d = 1 then
%p ct61 := ct61+1 ;
%p elif d =2 then
%p ct62 := ct62+1 ;
%p elif d =3 then
%p ct63 := ct63+1 ;
%p elif d =4 then
%p ct64 := ct64+1 ;
%p elif d =5 then
%p ct65 := ct65+1 ;
%p end if ;
%p end do:
%p if ct60 = ct61 and ct61 = ct62 and ct62 = ct63 and ct63 = ct64 and ct64 = ct65 then
%p return true ;
%p else
%p return false;
%p end if;
%p end proc:
%p for n from 1 to 12000 do
%p if isA04957(n) then
%p print(n);
%p end if;
%p end do: # _R. J. Mathar_, Aug 24 2023
%t Select[Range[6000], Length[Union[DigitCount[#, 6]]] == 1 &] (* _Vincenzo Librandi_, Apr 18 2013 *)
%Y Cf. A031443.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_
|
