A043417 Numbers whose base-7 representation contains exactly one 6.
6, 13, 20, 27, 34, 41, 42, 43, 44, 45, 46, 47, 55, 62, 69, 76, 83, 90, 91, 92, 93, 94, 95, 96, 104, 111, 118, 125, 132, 139, 140, 141, 142, 143, 144, 145, 153, 160, 167, 174, 181, 188, 189, 190, 191, 192, 193, 194, 202, 209, 216, 223
Offset: 1
Crossrefs
Cf. A007093.
Programs
-
Mathematica
Select[Range[300],DigitCount[#,7,6]==1&] (* Harvey P. Dale, Dec 26 2018 *)