The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A049357 Digitally balanced numbers in base 6: equal numbers of 0's, 1's, ..., 5's. 5

%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_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 19 18:42 EDT 2024. Contains 373507 sequences. (Running on oeis4.)