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

Author

Clark Kimberling

Keywords

• nonn
• easy
• base

Links

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

Crossrefs

Cf. A007094, A043417, A043477, A043513.

Programs

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 *)