OFFSET
1,1
MATHEMATICA
Select[Range[300], DigitCount[#, 9, 8]==1&] (* Harvey P. Dale, Jun 26 2011 *)
PROG
(PARI) isok(m) = #select(x->(x==8), digits(m, 9)) == 1; \\ Michel Marcus, Oct 13 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Name edited by Michel Marcus, Oct 13 2020
STATUS
approved