A043393 Numbers whose base-7 representation contains exactly one 0.
7, 14, 21, 28, 35, 42, 50, 51, 52, 53, 54, 55, 56, 63, 70, 77, 84, 91, 99, 100, 101, 102, 103, 104, 105, 112, 119, 126, 133, 140, 148, 149, 150, 151, 152, 153, 154, 161, 168, 175, 182, 189, 197, 198, 199, 200, 201, 202, 203, 210
Offset: 1
Crossrefs
Cf. A007093.
Programs
-
Mathematica
Select[Range[250],DigitCount[#,7,0]==1&] (* Harvey P. Dale, Sep 26 2019 *)