The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
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
 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 (list; graph; refs; listen; history; text; internal format)
 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

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 May 29 10:54 EDT 2024. Contains 372938 sequences. (Running on oeis4.)