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
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000 (corrected original data from Robert Israel)
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 *)