OFFSET
1,1
LINKS
Chris R. Rehmann, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1135], DigitCount[#, 9, 0]==DigitCount[#, 9, 5]>0&] (* Chris R. Rehmann, Apr 04 2026 *)
PROG
(MATLAB)
a = NaN(52, 1); k = 0; j = 1;
while any(isnan(a))
d = dec2base(k, 9)-'0';
n1 = sum(d==0); n2 = sum(d==5);
if n1==n2 && n1 > 0
a(j) = k; j = j+1;
end
k = k+1;
end
disp(regexprep(num2str(a'), ' +', ', ')) % Chris R. Rehmann, Apr 04 2026
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved
