login
A039364
Numbers whose base-9 representation has the same nonzero number of 0's and 8's.
16
72, 89, 153, 170, 234, 251, 315, 332, 396, 413, 477, 494, 558, 575, 639, 649, 650, 651, 652, 653, 654, 655, 657, 666, 675, 684, 693, 702, 711, 746, 755, 764, 773, 782, 791, 800, 802, 803, 804, 805, 806, 807, 808, 818, 882, 899, 963, 980, 1044, 1061, 1125, 1142
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1200], DigitCount[#, 9, 0]==DigitCount[#, 9, 8]>0&] (* Harvey P. Dale, Sep 20 2023 *)
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==8);
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
KEYWORD
nonn,base,easy
STATUS
approved