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
KEYWORD
nonn,base
AUTHOR
STATUS
approved