%I #15 Jun 30 2021 03:57:05

%S 38,83,138,183,238,283,308,318,328,348,358,368,378,380,381,382,384,

%T 385,386,387,389,398,438,483,538,583,638,683,738,783,803,813,823,830,

%U 831,832,834,835,836,837,839,843,853,863,873,893,938,983,1038,1083

%N Numbers whose base-10 representation has the same nonzero number of 3's and 8's.

%H Iain Fox, <a href="/A039421/b039421.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[1000], DigitCount[#, 10, 3] == DigitCount[#, 10, 8] > 0 &] (* _Wesley Ivan Hurt_, Nov 21 2017 *)

%o (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

%K nonn,base,easy

%O 1,1

%A _Olivier Gérard_