OFFSET
1,1
LINKS
Chris R. Rehmann, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[0, 1068], DigitCount[#, 9, 4] == DigitCount[#, 9, 6] > 0 &] (* Chris R. Rehmann, Apr 12 2026 *)
PROG
(MATLAB) x = 0:1068; d = dec2base(x, 9)-'0'; s1 = sum(d==4, 2); s2 = sum(d==6, 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
