|
%I #13 Feb 23 2019 21:48:16
%S 93,218,343,393,418,443,453,458,463,465,466,467,469,473,493,593,718,
%T 843,968,1018,1043,1068,1078,1083,1088,1090,1091,1092,1094,1098,1118,
%U 1218,1343,1468,1593,1643,1668,1693,1703,1708
%N Numbers with exactly 3 3's in their base-5 expansion.
%H Nathaniel Johnston, <a href="/A023736/b023736.txt">Table of n, a(n) for n = 1..10000</a>
%p seq(`if`(numboccur(3,convert(n,base,5))=3,n,NULL),n=0..2000); # _Nathaniel Johnston_, Jun 27 2011
%t Select[ Range[ 1750 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==3)& ]
%Y Cf. A023733, A023734, A023735.
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
