OFFSET
1,1
LINKS
Iain Fox, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], DigitCount[#, 9, 3]==DigitCount[#, 9, 8]>0&] (* Harvey P. Dale, Jun 12 2024 *)
PROG
(PARI) is(n) = { my(d = digits(n, 9), i = 0, j = 0); for(x=1, length(d), if(d[x] == 3, i++, if(d[x] == 8, j++))); return(i==j && i!=0); } \\ Iain Fox, Nov 21 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved