%I #15 May 16 2023 22:06:03
%S 3999,4299,4359,4371,5799,5859,5871,6159,6171,6231,13299,13359,13371,
%T 13659,13671,13731,15159,15171,15231,15531,16499,16799,16859,16871,
%U 18299,18359,18371,18659,18671,18731,18999,19299
%N Numbers whose base-5 representation contains exactly three 1's and three 4's.
%t okQ[n_]:=Module[{dcn5=DigitCount[n,5]},dcn5[[1]]==dcn5[[4]]==3]
%t Select[Range[20000],okQ] (* _Harvey P. Dale_, Feb 18 2011 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|