login
A043413
Numbers whose base-7 representation contains exactly one 5.
0
5, 12, 19, 26, 33, 35, 36, 37, 38, 39, 41, 47, 54, 61, 68, 75, 82, 84, 85, 86, 87, 88, 90, 96, 103, 110, 117, 124, 131, 133, 134, 135, 136, 137, 139, 145, 152, 159, 166, 173, 180, 182, 183, 184, 185, 186, 188, 194, 201, 208, 215, 222, 229, 231, 232, 233, 234, 235
OFFSET
1,1
MATHEMATICA
Select[Table[n Boole[Length[Select[IntegerDigits[n, 7], #==5&]]==1], {n, 235}], Positive] (* Stefano Spezia, Apr 23 2023 *)
CROSSREFS
Cf. A007093.
Sequence in context: A003328 A048926 A047704 * A017041 A139692 A099192
KEYWORD
nonn,base
EXTENSIONS
More terms from Stefano Spezia, Apr 23 2023
STATUS
approved