%I #22 Apr 24 2021 21:01:18
%S 8,17,26,35,44,53,62,71,72,73,74,75,76,77,78,79,89,98,107,116,125,134,
%T 143,152,153,154,155,156,157,158,159,160,170,179,188,197,206,215,224,
%U 233,234,235,236,237,238,239,240,241,251,260,269,278,287,296,305,314
%N Numbers having one 8 in base 9.
%t Select[Range[300],DigitCount[#,9,8]==1&] (* _Harvey P. Dale_, Jun 26 2011 *)
%o (PARI) isok(m) = #select(x->(x==8), digits(m, 9)) == 1; \\ _Michel Marcus_, Oct 13 2020
%Y Cf. A007095 (numbers in base 9), A338090.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
%E Name edited by _Michel Marcus_, Oct 13 2020
|