%I #17 Aug 24 2023 12:10:50
%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,11265,11345,11370,11415
%N Numbers in which 0,1,2,3,4,5 all occur in base 6.
%C Contains numbers like 47265, 47290, 47295, 47405 which are absent in A049357. - _R. J. Mathar_, Aug 24 2023
%p isA031947 := proc(n)
%p convert(convert(n,base,6),set) ;
%p if nops(%) = 6 then
%p true;
%p else
%p false;
%p end if;
%p end proc:
%p for n from 1 to 12000 do
%p if isA031947(n) then
%p print(n);
%p end if;
%p end do: # _R. J. Mathar_, Aug 24 2023
%Y Cf. A007092 (base 6), A023744 (each base 6 digit once).
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|