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
(MATLAB) x = 0:1016; d = dec2base(x, 9)-'0'; s1 = sum(d==3, 2); s2 = sum(d==8, 2); a = x(s1==s2 & s1>0); disp(regexprep(num2str(a), ' +', ', ')) % Chris R. Rehmann, Apr 12 2026
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved
