%I #14 May 19 2023 20:07:23
%S 218,418,458,466,718,968,1018,1068,1078,1088,1090,1092,1094,1098,1118,
%T 1218,1468,1668,1708,1716,1918,1958,1966,2018,2068,2078,2088,2090,
%U 2092,2094,2098,2118,2168,2208,2216,2258,2266,2278
%N Numbers whose base-5 representation contains exactly one 1 and three 3's.
%t Select[Range[3000],DigitCount[#,5,1]==1&&DigitCount[#,5,3]==3&] (* _Harvey P. Dale_, Jun 25 2013 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|