OFFSET
1,1
LINKS
Iain Fox, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], DigitCount[#, 10, 3] == DigitCount[#, 10, 8] > 0 &] (* Wesley Ivan Hurt, Nov 21 2017 *)
PROG
(PARI) is(n) = { my(d = digits(n), 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