A043485 Numbers having one 8 in base 9.
8, 17, 26, 35, 44, 53, 62, 71, 72, 73, 74, 75, 76, 77, 78, 79, 89, 98, 107, 116, 125, 134, 143, 152, 153, 154, 155, 156, 157, 158, 159, 160, 170, 179, 188, 197, 206, 215, 224, 233, 234, 235, 236, 237, 238, 239, 240, 241, 251, 260, 269, 278, 287, 296, 305, 314
Offset: 1
Programs
-
Mathematica
Select[Range[300],DigitCount[#,9,8]==1&] (* Harvey P. Dale, Jun 26 2011 *)
-
PARI
isok(m) = #select(x->(x==8), digits(m, 9)) == 1; \\ Michel Marcus, Oct 13 2020
Extensions
Name edited by Michel Marcus, Oct 13 2020