A039083 Numbers whose base-9 representation has the same number of 0's and 7's.

1, 2, 3, 4, 5, 6, 8, 10, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 35, 37, 38, 39, 40, 41, 42, 44, 46, 47, 48, 49, 50, 51, 53, 55, 56, 57, 58, 59, 60, 62, 63, 73, 74, 75, 76, 77, 78, 80, 88, 91, 92, 93, 94, 95, 96, 98, 100, 101, 102, 103

Offset

1,2

Links

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[120], DigitCount[#, 9, 0]==DigitCount[#, 9, 7]&] (* Harvey P. Dale, Mar 06 2018 *)

Prog

(MATLAB)
a = NaN(10000, 1); k = 0; j = 1;
while any(isnan(a))
    d = dec2base(k, 9)-'0';
    if sum(d==0)==sum(d==7)
        a(j) = k; j = j+1;
    end
    k = k+1;
end
disp(regexprep(num2str(a'), ' +', ', ')) % Chris R. Rehmann, Mar 04 2026

Crossrefs

Cf. A007095, A039363.

Cf. A039077, A039078, A039079, A039080, A039081, A039082, A031492.

Cf. A039089, A039095, A039100, A039104, A039107, A039109.

Sequence in context: A039266 A039205 A039154 * A178596 A034047 A047424

Adjacent sequences: A039080 A039081 A039082 * A039084 A039085 A039086

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved