A043445 Numbers having exactly one 6 in base 8.

6, 14, 22, 30, 38, 46, 48, 49, 50, 51, 52, 53, 55, 62, 70, 78, 86, 94, 102, 110, 112, 113, 114, 115, 116, 117, 119, 126, 134, 142, 150, 158, 166, 174, 176, 177, 178, 179, 180, 181, 183, 190, 198, 206, 214, 222, 230, 238, 240, 241, 242, 243, 244, 245, 247, 254, 262

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000 (corrected original data from Robert Israel)

Maple

filter:= proc(n) numboccur(6, convert(n, base, 8)) = 1 end proc:
select(filter, [$1..1000]); # Robert Israel, Nov 27 2024

Mathematica

Select[Range[500], DigitCount[#, 8, 6] == 1 &] (* Paolo Xausa, Nov 26 2024 *)

Crossrefs

Cf. A007094, A043417, A043477, A043513.

Sequence in context: A197171 A062316 A079299 * A189785 A017137 A211998

Adjacent sequences: A043442 A043443 A043444 * A043446 A043447 A043448

Keyword

nonn,easy,base

Author

Clark Kimberling

Status

approved