A043413 Numbers whose base-7 representation contains exactly one 5.

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

Links

Table of n, a(n) for n=1..58.

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

Adjacent sequences: A043410 A043411 A043412 * A043414 A043415 A043416

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Stefano Spezia, Apr 23 2023

Status

approved