A023736 Numbers with exactly 3 3's in their base-5 expansion.

93, 218, 343, 393, 418, 443, 453, 458, 463, 465, 466, 467, 469, 473, 493, 593, 718, 843, 968, 1018, 1043, 1068, 1078, 1083, 1088, 1090, 1091, 1092, 1094, 1098, 1118, 1218, 1343, 1468, 1593, 1643, 1668, 1693, 1703, 1708

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• easy

Links

• Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A023733, A023734, A023735.

Programs

Maple

seq(`if`(numboccur(3,convert(n,base,5))=3,n,NULL),n=0..2000); # Nathaniel Johnston, Jun 27 2011

Mathematica

Select[ Range[ 1750 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==3)& ]