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.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
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
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
KEYWORD
nonn,base
AUTHOR
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 29 10:54 EDT 2024. Contains 372938 sequences. (Running on oeis4.)